Code: Select all
Worksheets("Grounds").Visible = xlSheetHidden
UserForm8.Show
Code: Select all
Worksheets("Grounds").Visible = xlSheetVisible
Worksheets("Grounds").Select
ActiveSheet.Range("A8").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, _
Password:="", UserInterfaceOnly:=True
Unload UserForm8
I also tried selecting a cell upon hiding, thinking maybe it needs to tab out
Code: Select all
ActiveSheet.Range("A8").Select