ссылка на ячейку в колонтитуле?

[all4you]

Ребят, привет. У меня такой вопрос: возможно ли в колонтитуле сделать ссылку на ячейку? У меня в шапке листа и в колонтитуле одинаковые строки, хотелось чтобы при изменении значения ячейки в шапке, автоматически менялась подпись в колонтитуле... И еще вопрос: возможно ли сделать ссылку на ячейку внутри текста? Спасибо!

P.S.: пример желаемого прикрепил...

[alex77755]

Можно было просто записать макрос создания колонтитула и чуток подкрутить.
Но автоматического обновления не происходит. Ни что мешает запустить макрос после изменения даты?
'

Sub Макрос4()
'
' Макрос4 Макрос
' Макрос записан 25.01.2012 (Александр)
'

'
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = Лист1.Cells(11, 6).Value ''''''''''''''''''''''
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = _
        "от «23» января 2012г. №31" & Chr(10) & "Общее количество страниц &N. Страница &P"
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub

[alex77755]

возможно ли сделать ссылку на ячейку внутри текста

Если правильно понял вопрос: просто составляешь из кусков:
MsgBox "Сегодня " & Cells(2, 2).Value & " градусов тепла"