Force User to Enable Macros - Issue with activating specific sheet afterwards...

I would use:

Application.Goto Reference:=Sheet1.Range("A1"), Scroll:=True

Change Sheet1 (code name for the sheet) to the applicable sheet in your workbook (whatever sheet = "Directory")

Originally Posted by Palmetto

I would use:

Application.Goto Reference:=Sheet1.Range("A1"), Scroll:=True

Change Sheet1 (code name for the sheet) to the applicable sheet in your workbook (whatever sheet = "Directory")

What is the proper placement of the code? Just above the setting of the macro sheet to hidden does not seem to work...

Sorry.
I assume you are calling the Show All sub from within the module named "ThisWorkbook", which is where the code should be placed.

Since I don't know if you are running other code in that module . . .
I would place the line of code I gave you after whichever line of code calls the Show All sub or near the very end of the event.

Private Sub Workbook_Open()

'your code - show all, etc.

Application.Goto reference:=Sheet1.Range("a1"), Scroll:=True

End Sub

Originally Posted by Palmetto

Sorry.
I assume you are calling the Show All sub from within the module named "ThisWorkbook", which is where the code should be placed.

Since I don't know if you are running other code in that module . . .
I would place the line of code I gave you after whichever line of code calls the Show All sub or near the very end of the event.

Private Sub Workbook_Open()

'your code - show all, etc.

Application.Goto reference:=Sheet1.Range("a1"), Scroll:=True

End Sub

This code:

Application.Goto reference:=Sheet1.Range("a1"), Scroll:=True

Gives a variable not defined error...

I definitely did not write this code - so I am still learning the ins and outs of it. The Boolean is placed in a module... which consists of the code listed above. There are several sections of code listed under thisWorkbook that seem to relate to this as well.

Thank you for bringing thisWorkbook up as the proper location for the code. I was able to locate the proper placement - and utilized the Activesheet command listed above and it is working now... thank you. Will list as problem solved.