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

[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, ну что поможете с моей проблемкой? Или не ждать ответа?