Check if Worksheet exists and Insert Worksheet

**ddanmcgrew** · 09-27-2012, 03:08 PM

I want my Macro to check to see if worksheet "Output" exists, and if it dose not then insert a worksheet called "Output" in the second position in the workbook.
Need help with checking for existence and inserting, naming, and inserting in proper location.

Your last advice for creating a dynamic help menu was perfect.

**Mordred** · 09-27-2012, 03:19 PM

Maybe the following might work:

Option Explicit

Private Sub Workbook_Open()
    Dim shts As Worksheet, newWs As Worksheet
    Dim opBool As Boolean
    opBool = False
    For Each shts In Sheets
        If shts.Name = "Output" Then
            opBool = True
            shts.Select
            Exit For
        End If
    Next shts
    If opBool = False Then
        Application.ScreenUpdating = False
            Sheets(2).Select
            Set newWs = Sheets.Add
            newWs.Name = "Output"
        Application.ScreenUpdating = True
    End If
End Sub

The previous code should be pasted into the "ThisWorkbook" module. It will check the workbook when it is first opened. Is this what you require?