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

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.
 
J

Jim Thomlinson

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

Carey N.

Jim, many thanks for your response. I shall try that. It certainly looks
much neater than what I was going to use.
 
N

NickHK

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top