kopiere celleværdi til sidefod med bevarelse af talformat

Jeg har et problem med at bevare talformatet fra celle B1 når jeg med excel vba kopierer til sideforden.
I celle B1 på arket "Data" vil se sådan ud 1.000.000,00 men i sidefoden efter kopiering vil det se sådan ud 1000000.

Koden jeg bruger ser ud som følger:
Private Sub CommandButton6_Click()
'Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim sht As Object
    For Each sht In ThisWorkbook.Sheets
        '.NumberFormat = "#,##0"
        sht.PageSetup.LeftFooter = _
            ActiveWorkbook.Sheets("Data").Cells(1, 1).Value & "          " & ActiveWorkbook.Sheets("Data").Cells(1, 2).Value_
    Next sht
End Sub

Håber der en der kan se hvor og hvad der mangler i koden.
Jeg anvender Excel 2010