I got this to work. The the benefit of the community, here is the code
After the formatting I had to enter a & and variable without quotes.

Sub ClientName()
Application.ScreenUpdating = False
Dim cName As String
cName = Worksheets("Summary").Range("A1").Value
'Declare string variable for Client Name from Summary Page A1
'
With Worksheets(3).PageSetup
.CenterHeader = "&""Arial,Bold""&12" & cName
"&""Arial,Regular""&10" & Chr(10) & "&""Arial,Bold""&A"
End With
Application.ScreenUpdating = True

End Su

--
Message posted from http://www.ExcelForum.com