For Each WS In ThisWorkbook.Worksheets
With WS.PageSetup
.LeftHeader = ""
....................etc
End With
Next WS
End Sub

--
Regards,
Tom Ogilvy


"Ed123" wrote in message
...
I have a macro to select worksheets in a workbook but it will only format
the
active worksheet and not all:
Sub FormatWS
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
With ActiveSheet.PageSetup
.LeftHeader = ""
...................etc
End With
Next WS
End Sub

Any ideas gratefully received.