If WorkSheet("wsName") Exists [duplicate]

Question

I'm wondering if there is clean cut functionality that returns True or False if a worksheet inside a workbook exists?

It would be good, but not essential, if it's possible to do it without skipping error handling.

The only thing I've found doesn't really work:

On Error Resume Next If (Worksheets("wsName").Name <> "") Then     Debug.Print "Worksheet exists!" Else     Debug.Print "Worksheet doesn't exist!" End If On Error GoTo ErrHandler 

Answer 1

A version without error-handling:

Function sheetExists(sheetToFind As String) As Boolean     sheetExists = False     For Each sheet In Worksheets         If sheetToFind = sheet.name Then             sheetExists = True             Exit Function         End If     Next sheet End Function 

Answer 2

There's no built-in function for this.

Function SheetExists(SheetName As String, Optional wb As Excel.Workbook)    Dim s As Excel.Worksheet    If wb Is Nothing Then Set wb = ThisWorkbook    On Error Resume Next    Set s = wb.Sheets(SheetName)    On Error GoTo 0    SheetExists = Not s Is Nothing End Function