'go to' macros

F

FJDx

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?
 
R

Ron de Bruin

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
 
F

FJDx

Ron de Bruin said:
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
Click to expand...

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