vba-does-sheet-exist.vb

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'INPUT         : SheetName, the name (string) of the sheet we're looking for
'OUTPUT        : True or false (sheet was found, sheet was not found)
'SPECIAL CASE  : none
'EXAMPLES BELOW:
'
'assume that a sheet named "YaGotMe" exists
'DoesSheetExist("YaGotMe")
'>> True
'
'assume that a sheet named "NotHere" does NOT exist
'DoesSheetEixst("NotHere")
'>> False
'
Public Function DoesSheetExist(SheetName As String) As Boolean
    Dim Obj As Object
    On Error Resume Next
    Set Obj = ThisWorkbook.Worksheets(SheetName)
    If Err = 0 Then
        DoesSheetExist = True
    Else
        DoesSheetExist = False
    End If
    On Error GoTo 0
End Function