Public Function WorksheetExtant(ByVal WorksheetName As String) As Boolean

'       This function will check to see if a passed worksheet exists or not

Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Worksheets
    If Application.Proper(Sht.Name) = Application.Proper(WorksheetName) Then
        WorksheetExtant = True
        Exit Function
    End If
Next Sht
WorksheetExtant = False
End Function