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.