APPLY Header Codes

So from this nifty link here
http://msdn.microsoft.com/en-us/libr...ffice.12).aspx
I see that I can programmatically define headers and footers with VBA.
This code works nicely, but with one major glitch!

ActiveSheet.PageSetup.CenterHeader = "&""Tahoma""&16 " & "&[Tab]"

I implement the code in the immediate window while watching the sheet in Page Layout, and it just makes the header say

Tab]

I then click inside the header, and then on the spreadsheet itself, and the header updates to give the actual sheet name.
The issue is, I am automating this spreadsheet to AVOID manual clicking! I can't afford to click on 150+ headers for this workbook I'm building automatically.
What do I need to do to actually make the header automatically run the code and list the sheet name?
I tried recording a macro of doing it and didn't turn anything up that I wasn't already doing.
So I have resorted to the final authority! This great forum!
Thanks for helping.

*facepalm*
Some things are so simple. The header code you posted (&A) is in the link I posted. I used the link for other things, but copied the Sheet name code right out of the custom header dialog box, assuming it was going to be the same as what was in the article... it's not.
I didn't spot the &A in my recorded macro a midst all the other PageSetup items...
Thanks a lot. Works like a charm.