Does Sheet tab exist?

Try something like this.....

Sub CreateSheetIFDoesNotExist()
Dim ws As String
ws = "Sheet5"   'Checking if Sheet5 exists
If Not WorksheetExists(ws) Then
    Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = ws
End If
End Sub

Function WorksheetExists(shName As String) As Boolean
On Error Resume Next
WorksheetExists = CBool(Len(Worksheets(shName).Name) > 0)
End Function

Select allOpen in new window

You can also iterate the worksheets, looking for a worksheet with a particular name.
Example:

Function WksExists(parmName As String) As Boolean
    Dim wks As Worksheet
    For Each wks In Worksheets
        If wks.Name = parmName Then
            WksExists = True
            Exit Function
        End If
    Next    
    WksExists = False
End Function

Select allOpen in new window

Although I wrote it this article about Access objects, the basic principles apply for Excel:
https://www.experts-exchange.com/articles/6670/Object-Existence.html

Yup worked fine.  Thanks.