VB - Writes current month and previous months in cells

Hello,

Can someone please type me up a quick VB formula that - when ran - will put the current month in cell "S3" and then put the previous 5 months in cells U3, W3, Y3, AA3, and AC3?

IE - "July" in S3, then "June" in U3, then "May" in W3, etc.

Also, the current month should be "Yellow" in background color, the rest of the months are gray 15.

Thank you so much!

Try

=TEXT(TODAY(),"mmmm")

=TEXT(DATE(YEAR(TODAY()),MONTH(TODAY())-1,1), "mmmm")

etc.

Thanks, but I need this for Visual Basic - not a regular excel formula