Hi All
I have 52 worksheets which would be password protected "LIVERPOOL" and I would like to clear the contents including formats of all the 52 sheets.
I have this so far:
Anybody got any hints or tips how I could add to this?
Thanks in advance
Andrew
I have 52 worksheets which would be password protected "LIVERPOOL" and I would like to clear the contents including formats of all the 52 sheets.
I have this so far:
Code:
Sub ClearAll()
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10")).Select_
Sheets(Array("11", "12", "13", "14", "15", "16", "17", "18", "19", "20")).Select_
Sheets(Array("21", "22", "23", "24", "25", "26", "27", "28", "29", "30")).Select_
Sheets(Array("31", "32", "33", "34", "35", "36", "37", "38", "39", "40")).Select_
Sheets(Array("41", "42", "43", "44", "45", "46", "47", "48", "49", "50")).Select_
Sheets(Array("51", "52")).Select
Cells.Select
Selection.Clear
End Sub
Anybody got any hints or tips how I could add to this?
Thanks in advance
Andrew