Update Header on Sheet 3 to Last sheet

[wbcarter]

I want to add a header to Sheet3 to the last sheet. Here is what I hav
so far.

Dim cName As String
Dim ws As Object
cName = Worksheets("Summary").Range("A1").Value
'Declare string variable for Client Name from Summary Page A1
For Each ws In ActiveWorkbook.Worksheets
With ws.PageSetup
.CenterHeader = "&""Arial,Bold""&12" & cName
"&""Arial,Regular""&10" & Chr(10) & "&""Arial,Bold""&A"
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.CenterHorizontally = True
End With
Next ws
Set ws = Nothin