Gary,

Excellent

Thats the one, Thank You

Gary''s Student wrote:
Private Sub Workbook_Open()
If ActiveSheet.Name = "Option1" Then
MsgBox ("because active sheet is Option1, I am leaving")
Exit Sub
End If
End Sub

--
Gary's Student


"spences10" wrote:

Hi, I'm having trouble with the below code. I want the open procedure
to exit the code if the active sheet on opening is "Option1" can
anyone help please??

Private Sub Workbook_Open()
Application.ScreenUpdating = False
If ActiveSheet.Name("Option1") Then
Exit Sub
End If
ActiveWorkbook.Sheets("Input").Activate
If Range("D30") < "" Then
ActiveWorkbook.Sheets("Default").Select
Exit Sub
End If
UserForm2.Show
Application.ScreenUpdating = True
End Sub