Change footer colour usnig VBA??

[cheekyrich]

Hi folks, tried a million iterations and can't get this nice little macro to complete footer with a formatting... I want it to finish with a grey colour rather than black. Any suggestions please? Thank you kindly in advance...


Public Sub SetFooter()

sheetlist = Array("Presentation")
For i = LBound(sheetlist) To UBound(sheetlist)
Worksheets(sheetlist(i)).Activate
Application.ScreenUpdating = False
With ActiveSheet
.PageSetup.CenterFooter = .Range("g30").Text

End With
Next
End Sub


By the way, the poor coding above was a mishmash to restrict the macro to the single worksheet I wanted it applied to [hangs head in shame]... but it works at least

Rich

 

[cheekyrich]

I reduced the unecessary!...


Public Sub SetFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("e30").Text
End With
End Sub

 

[pgc01]

Hi

Try:

ActiveSheet.PageSetup.CenterFooter = "&K808080" & Range("E30").Text

Remark:
You did not specify which shade of grey and so I just picked one.
To specify a colour you use "&K" followed by the hex value of the rgb colour value.

 

[cheekyrich]

Thank you PGC... so simple... I need to get back on it! (been a while)

 

[pgc01]

You're welcome. Thanks for the feedback.