Fontfarve i sidehoved i Excel

Hej. Er der nogen der kan hjælpe mig med at ændre fontfarven i sidehoved og sidefod i Excel. Jeg har lavet en macro, der automatisk sætter stiangivelse og filnavn ind samt brugernavn og dato. Men jeg kunne godt tænke mig at skriften kom til at stå i grå istedet for sort. Her er hvad jeg ind til videre er nået frem til:

"Sub StdHeaderFooter()
'
' StdHeaderFooter Macro
' 16-11-2006 by Kasper Vestergaard Larsen
'
    Dim strError As String
    Dim Response As Long
   
    On Error GoTo Errorhandler
   
    ActiveSheet.PageSetup.RightFooter = "&""Arial,fed""Made by " & Application.UserName & Chr(10) & "&D &T"
    ActiveSheet.PageSetup.CenterFooter = "&""Arial,fed""" & Chr(10) & "All rights Reserved © Milliken Walk Off® Mats"
    ActiveSheet.PageSetup.LeftFooter = "&""Arial,fed""" & Chr(10) & "" & Chr(10) & "&Z&F"
    Application.ScreenUpdating = False  'Slå skærmopdateringen fra
       
    Application.ScreenUpdating = True  'Slå skærmopdateringen til
   
    Response = MsgBox("Header/Footer updated", vbOKOnly, StandardTitel) 'Vis msgbox
   
    Exit Sub
   
Errorhandler:

    Application.ScreenUpdating = True
   
    Exit Sub
   
End Sub"