Function SheetExists(SName As String, Optional WB As workBook) As Boolean
Dim WS As Worksheet
If WB Is Nothing Then
Set WB = ActiveWorkbook
End If
On Error Resume Next
SheetExists = CBool(Not WB.Sheets(SName) Is Nothing)
On Error GoTo 0
End Function
Sub CheckForSheet()
Dim ShtExists As Boolean
ShtExists = SheetExists("Sheet1")
If ShtExists Then
MsgBox "The worksheet exists!"
Else
MsgBox "The worksheet does NOT exist!"
End If
End Sub