How can I unhide columns on multiple worksheets in same workbook?

  • Thread starter Thread starter Carey N.
  • Start date Start date
C

Carey N.

Keeping in mind that I know next to nothing about coding, the following is
what appeared after using the macro recorder to unhide columns on multiple
sheets in an Excel workbook.(Same thing has occurred in Excel 97 and Excel
2002.)

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
Columns("A:E").Select
Selection.EntireColumn.Hidden = False

After I re-hide the columns and tried to use the macro, only the columns on
the first sheet were unhidden.

Is there a shorter or more precise way to make this work on all three sheets
from a macro, without having to select each individual sheet(and will it
also work for re-hiding the columns), as below:

Sheets("Sheet1").Activate
Columns("A:E").Select
Selection.EntireColumn.Hidden = False
Sheets("Sheet2").Activate
Columns("A:E").Select
Selection.EntireColumn.Hidden = False
Sheets("Sheet3").Activate
Columns("A:E").Select
Selection.EntireColumn.Hidden = False

Any help greatfully accepted.
 
Sheets("Sheet1").Columns("A:E").EntireColumn.Hidden = False
Sheets("Sheet2").Columns("A:E").EntireColumn.Hidden = False
Sheets("Sheet3").Columns("A:E").EntireColumn.Hidden = False
 
Jim, many thanks for your response. I shall try that. It certainly looks
much neater than what I was going to use.
 
Carey,
If you want a more flexible way:

Dim WS As Worksheet
Const SheetsToWorkOn As String = "Sheet2,Sheet3"

'For Each WS In Worksheets(Array("Sheet2", "Sheet3"))
'Or
For Each WS In Worksheets(Split(SheetsToWorkOn, ","))
WS.Columns("A:E").EntireColumn.Hidden = False
Next

NickHK
 
Back
Top