VBA - Footer font colour with long date format

[Novelec]

Hello Mr Excel gurus,

As the title says, I'm trying to make a simple macro to apply to a button, so I can update the footer details of a Worksheet.

I can accomplish all of these steps individually, however when I manipulate the "font colour" property, I can't seem to get things to work with variables other than those which are predefined, such as "&D", etc. I'm hoping there is a work around here...?

I've been stabbing in the dark at different syntax "strategies" (lol) for a couple hours now, and am at the point where I'm hoping someone out there might be able to help!

I wouldn't have thought footer font colour would bring so much grief...!?

If you know anything about footer properties, you will be able to see what I'm trying to achieve.

Any assistance would be incredible.

Cheers,

Dan

Sub Refresh_Footer_Details()

    With ActiveSheet.PageSetup

        .LeftFooter = "&K808080Profile - ""&Range(B2).Text"
        .CenterFooter = "&K808080Format(Date, "dddd dd mmmm yyyy")"
        .RightFooter = "&K808080Page &P of &N"
        
    End With

End Sub

 

[Peter_SSs]

You haven't said exactly what your problem is but in any case you appear to have quite a few missing/additional/misplaced quote marks.
Does this do what you want?

Sub Refresh_Footer_Details()
    With ActiveSheet.PageSetup
        .LeftFooter = "&K808080Profile - " & Range("B2").Text
        .CenterFooter = "&K808080" & Format(Date, "dddd dd mmmm yyyy")
        .RightFooter = "&K808080Page &P of &N"
    End With
End Sub

 

[Novelec]

You haven't said exactly what your problem is but in any case you appear to have quite a few missing/additional/misplaced quote marks.
Does this do what you want?

Sub Refresh_Footer_Details()
    With ActiveSheet.PageSetup
        .LeftFooter = "&K808080Profile - " & Range("B2").Text
        .CenterFooter = "&K808080" & Format(Date, "dddd dd mmmm yyyy")
        .RightFooter = "&K808080Page &P of &N"
    End With
End Sub

Hi Peter,

You've come to my rescue so many times over the years, and you've delivered the goods once again!

Yes, the quotation marks were all over the place... I was reading threads that showed them doubled up, grouped in different ways, and all sorts of weird and wonderful arrangements... Couldn't find anything consistent, and couldn't get it right myself making blind attempts at re-ordering, for what felt like an eternity!

But... Your solution is rock solid.

Thank you so much mate, really appreciate it.

Cheers, Dan

 

[Peter_SSs]

Cheers, glad it worked for you.