Jeg har brug for at referere til en celle i sidefoden, kan man det?

Jeg har brug for at referere til en celle i sidefoden, kan man det? jeg har læst http://www.eksperten.dk/spm/60054 og copy dette

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rFooter As Range
    Set rFooter = Range(\"D12\")
   
    If Not Intersect(Target, rFooter) Is Nothing Then
        With ActiveSheet.PageSetup
            .LeftFooter = rFooter
            .CenterFooter = \"\"
            .RightFooter = \"\"
        End With
    End If

Set rFooter = Nothing
End Sub
og sat det direkte ind i VB (hvilke jeg ikke er super god i) men jeg kan ikke for det til at virke