T
Tanya
Hi
I am trying to select a columns that are hidden in sheets 1-10 and then
unhide them.
Below is as far as I have gotten. Selecting the sheets and columns appears
to work fine, the problem appears to be in activating said cells in order to
unhide them in each sheet. The following code without the line
'Worksheets(Array.....)).Activate only unhides he columns on sheet1.
Sub Show()
'Show hidden outcome columns
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10")).Select
'Worksheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9",
"10")).Activate<<<problem
Columns("D:O").Select
Selection.EntireColumn.Hidden = False
Range("D5").Select
End Sub
If anyone can help I would appreciate it.
Cheers
Tanya
I am trying to select a columns that are hidden in sheets 1-10 and then
unhide them.
Below is as far as I have gotten. Selecting the sheets and columns appears
to work fine, the problem appears to be in activating said cells in order to
unhide them in each sheet. The following code without the line
'Worksheets(Array.....)).Activate only unhides he columns on sheet1.
Sub Show()
'Show hidden outcome columns
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10")).Select
'Worksheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9",
"10")).Activate<<<problem
Columns("D:O").Select
Selection.EntireColumn.Hidden = False
Range("D5").Select
End Sub
If anyone can help I would appreciate it.
Cheers
Tanya