Hiya,
I am having trouble with the following coding. I want to format sheets in a workbook one after the other. The coding below will do it to only the active sheet and will not move from one to the next:
Can anyone help - it would be much appreciated??Sub FormatExcelSheet() Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets ' do something with WS With ActiveSheet.PageSetup .PrintTitleRows = "" etc... End With Next WS End Sub
Ed.