Bit shorter, and no looping

Function CheckIsWorksheet(strSheetAs String)
Dim sh As Worksheet

On Error Resume Next
Set sh = Worksheets(strSheetAs )
CheckIsWorksheet = Not sh Is Nothing

End Function


--

HTH

RP

"RB Smissaert" wrote in message
...
Is there any better way (less code) to check if a sheet is a worksheet?

Function CheckIsWorksheet(strSheet As String) As Boolean

Dim sh As Object

For Each sh In ActiveWorkbook.Worksheets
If sh.Name = strSheet Then
CheckIsWorksheet = True
Exit Function
End If
Next sh

CheckIsWorksheet = False

End Function


RBS