Text and Date in VBA

[Zanatos]

Hey, I am trying to add text and a date to my spreadsheet in a footer via VBA, the formating for the date is what is making this difficult.

This is what I want

Rev. June 28, 2008


I can get the date to show up in that format, but I cannot add any text (the "Rev.") to the front of it. The code I am using for the date is shown below (note: I deleted ALOT of code that was irrelevant to this)




Private Sub CommandButton3_Click() ' Print Details
ActiveSheet.PageSetup.PrintArea = "DetailsMS"
With ActiveSheet.PageSetup

.CenterFooter = Format(Now(), "[$-409]mmmm dd, yyyy")

End With
ActiveWindow.SelectedSheets.PrintPreview
Range("A2:K37").BorderAround Weight:=xlMedium
End Sub

 

[iggydarsa]

did you try this?

.CenterFooter = "Rev. " & Format(Now(), "[$-409]mmmm dd, yyyy")

 

[Zanatos]

That worked. I had tried many things simular, but I guess I was always missing a " somewhere or something. It had been a long day.

Thanks!