'go to' macros
 

I have set the following macro to unhide column Y in all sheets.

Dim sh As Worksheet
For Each sh In Sheets(Array("sheet1", "sheet2", "sheet3"))
sh.Columns("X:Z").EntireColumn.Hidden = False
Range("H7").Select
Next

However, how do I also get it to select sell H7 and also scroll to the
top left of the workbook in all sheets?

'go to' macros
 

Hi FJDx

Try this

Sub Test()
Dim sh As Worksheet
For Each sh In Sheets(Array("sheet1", "sheet2", "sheet3"))
sh.Columns("X:Z").EntireColumn.Hidden = False
Application.GoTo sh.Range("H7"), True
Next
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"FJDx" wrote in message ...
I have set the following macro to unhide column Y in all sheets.

Dim sh As Worksheet
For Each sh In Sheets(Array("sheet1", "sheet2", "sheet3"))
sh.Columns("X:Z").EntireColumn.Hidden = False
Range("H7").Select
Next

However, how do I also get it to select sell H7 and also scroll to the
top left of the workbook in all sheets?

'go to' macros
 

"Ron de Bruin" wrote in message
...
Hi FJDx

Try this

Sub Test()
Dim sh As Worksheet
For Each sh In Sheets(Array("sheet1", "sheet2", "sheet3"))
sh.Columns("X:Z").EntireColumn.Hidden = False
Application.GoTo sh.Range("H7"), True
Next
End Sub

Thank you. Is there an option to scroll to a certain area of each
worksheet selected as well?

'go to' macros
 

If I understand you correct

For Each sh In ActiveWindow.SelectedSheets



--
Regards Ron de Bruin
http://www.rondebruin.nl


"FJDx" wrote in message ...
"Ron de Bruin" wrote in message
...
Hi FJDx

Try this

Sub Test()
Dim sh As Worksheet
For Each sh In Sheets(Array("sheet1", "sheet2", "sheet3"))
sh.Columns("X:Z").EntireColumn.Hidden = False
Application.GoTo sh.Range("H7"), True
Next
End Sub

Thank you. Is there an option to scroll to a certain area of each
worksheet selected as well?