Skip add page if code

[gottimd]

I have the following macro which is a "Workbook_Open" event:

Sheets("Data").Select
If Sheets("Data").Range("F4").Value = "TTC.INP" Then
    Sheets("Companies").Select
    Sheets.Add
    ActiveSheet.Name = "Version Notes"
    ActiveWorkbook.Sheets("Version Notes").Tab.ColorIndex = 8
    Range("A1:O388").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Data").Select
    End If

But each time it is opened it adds this page. How do I write it so that if the page "Version Notes" already exists, to skip this macro?

Thanks for your help in advance.

 

[Barrie Davidson]

Does this work for you?

On Error Resume Next
Sheets("Version Notes").Activate
On Error GoTo 0
If ActiveSheet.Name = "Version Notes" Then Exit Sub
If Sheets("Data").Range("F4").Value = "TTC.INP" Then
    Sheets.Add
    ActiveSheet.Name = "Version Notes"
    ActiveWorkbook.Sheets("Version Notes").Tab.ColorIndex = 8
    Range("A1:O388").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Data").Select
End If

 

[gottimd]

Thanks.....will the "Then Exit Sub" line stop the macro completely, because after this section of the code (after the End If) there is another section of the code.

 

[Barrie Davidson]

Thanks.....will the "Then Exit Sub" line stop the macro completely, because after this section of the code (after the End If) there is another section of the code.

Yes it would. In that case, change the code to something like:

On Error Resume Next
Sheets("Version Notes").Activate
On Error GoTo 0
If ActiveSheet.Name = "Version Notes" Then GoTo NextStep
If Sheets("Data").Range("F4").Value = "TTC.INP" Then
    Sheets.Add
    ActiveSheet.Name = "Version Notes"
    ActiveWorkbook.Sheets("Version Notes").Tab.ColorIndex = 8
    Range("A1:O388").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Data").Select
End If
NextStep:
'the rest of your code

 

[gottimd]

That worked! Thanks so much.