I have several worksheets in my workbook. I am trying to take a value in one
of the sheets and place it in then center part of the heading in ALL the
worksheets. I have ttrued the following macro, but it doesnt seem to work

strAcctName = Sheet2.Range("G16")
For i = 1 To Sheets.Count
Sheets(i).Select
With ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Italic""Account Name: &""Arial,Bold" &
strAcctName
End With
Next i


Any help would be appreciated.
Thanks