Как в колонтитуле макросом прибавить к страницы значение из ячейки

[Tow]

Здравствуйте, нужна помощь, как в колонтитуле макросом прибавить к страницы значение из ячейки нужно к этому

Код (vb) Выделить Развернуть

страница &P" прибавить ячейку из листа "Титульник" ячейка "V1". Вот макрос:

Код (vb) Выделить Развернуть

Sub Колонтитулы_Протокол()
Application.ScreenUpdating = False
   Sheets("Протокол").Select
   Range("V1").Select
   ActiveCell.FormulaR1C1 = "=страниц_на_листе_ПРОТ"
   Range("V1").Select
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Application.CutCopyMode = False
       With ActiveSheet.PageSetup
       .LeftFooter = [Q1] & ". Общее количество страниц " & [T1] & ", страница &P"
  End With
   Sheets("Титульник").Select
   Range("V1").Select
   ActiveCell.FormulaR1C1 = "=страниц_на_листе_ТИТ"
   Range("V1").Select
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Application.CutCopyMode = False
       With ActiveSheet.PageSetup
       .LeftFooter = [Q1] & ". Общее количество страниц " & [T1] & ", страница &P"
  End With
   Application.ScreenUpdating = True
End Sub

Помогите пожалуйста.

[vikttur]

Код (vb) Выделить Развернуть

.LeftFooter = [Q1] & ". Общее количество страниц " & [T1] & ", страница " & [V1]

[Tow]

Нет, не то у страницы получается статичное одно число. А нужно прибавить к странице, значение из ячейки. Например в обычном варианте получается "общее количество страниц 7 страница 1", а должно получится если значение ячейки "V1"=2, "общее количество страниц 7 страница 3", ну и соответственно следующие страницы уже должны пойти "общее количество страниц 7 страница 4" и т.д.

[Tow]

Аууу vikttur, ну что поможете с моей проблемкой? Или не ждать ответа?