Function SheetExists(ShName As String) As Boolean
Dim Sh As Worksheet
SheetExists = False
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name Like ShName Then
SheetExists = True
Set Sh = Nothing
Exit Function
End If
Next Sh
End Function
Function SheetExist(strSheetName As String) As Boolean
Dim objSheet As Object
On Error GoTo HandleError
ThisWorkbook.Worksheets(strSheetName).Activate
SheetExist = True
Exit Function
HandleError:
SheetExist = False
End Function
Function SheetExists(SheetName As String) As Boolean
Dim obj As Object
On Error GoTo errorHandler:
Set obj = sheets(SheetName)
SheetExists = True
Exit Function
errorHandler:
SheetExists = False
End Function
Function Sh_Exist(sName As String) As Boolean
Dim wsSh As Worksheet
On Error Resume Next
Set wsSh = Sheets(sName)
Sh_Exist = Not wsSh Is Nothing
End Function
Ссылка на статью , где описано как применить в виде функции и вне её.
