Does worksheet exist

[John]

Is it possible to make a conditional which determines if
a worksheet exists? This gives an error message so does
not work. Thanks

If IsNull(Worksheets("MySheet")) Then Debug.Print "Problem"

 

[ivv]

May be:On Error Goto ErrHandlerIf IsNull(Worksheets("MySheet")) Then
Debug.Print "Problem" ErrHandler:

 

[Dick Kusleika]

John

Here's a function that will do the job

Function SheetExists(sName As String, _
Optional oWb As Workbook) As Boolean

If oWb Is Nothing Then
Set oWb = ActiveWorkbook
End If

On Error Resume Next
SheetExists = CBool(Not oWb.Worksheets(sName) Is Nothing)
On Error GoTo 0

End Function

 

[John]

Thank you for the feedback.

John

John

Here's a function that will do the job

Function SheetExists(sName As String, _
Optional oWb As Workbook) As Boolean

If oWb Is Nothing Then
Set oWb = ActiveWorkbook
End If

On Error Resume Next
SheetExists = CBool(Not oWb.Worksheets(sName) Is Nothing)
On Error GoTo 0

End Function


--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com