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

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

Sorry, should be

Function CheckIsWorksheet(strSheet As String)
Dim sh As Worksheet

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

End Function


--

HTH

RP

"Bob Phillips" wrote in message
...
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

Use typename.

Sub CheckifSheet()
If TypeName(ActiveSheet) = "Worksheet" Then
MsgBox "Is worksheet"
Else
MsgBox "Is Not Worksheet"
End If
End Sub

If typename(activesheet)=worksheet then

"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

Thanks, I like that one.
Didn't know about TypeName.

This suits my purpose best:

Function CheckIfWorkSheet(strSheet As String) As Boolean
If TypeName(Sheets(strSheet)) = "Worksheet" Then
CheckIfWorkSheet = True
Else
CheckIfWorkSheet = False
End If
End Function

RBS


"Bill" wrote in message
...
Use typename.

Sub CheckifSheet()
If TypeName(ActiveSheet) = "Worksheet" Then
MsgBox "Is worksheet"
Else
MsgBox "Is Not Worksheet"
End If
End Sub

If typename(activesheet)=worksheet then

"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

RB

Better

Function CheckIfWorkSheet(strSheet As String) As Boolean
CheckIfWorkSheet = TypeName(Sheets(strSheet)) = "Worksheet"
End Function



--

HTH

RP

"RB Smissaert" wrote in message
...
Thanks, I like that one.
Didn't know about TypeName.

This suits my purpose best:

Function CheckIfWorkSheet(strSheet As String) As Boolean
If TypeName(Sheets(strSheet)) = "Worksheet" Then
CheckIfWorkSheet = True
Else
CheckIfWorkSheet = False
End If
End Function

RBS


"Bill" wrote in message
...
Use typename.

Sub CheckifSheet()
If TypeName(ActiveSheet) = "Worksheet" Then
MsgBox "Is worksheet"
Else
MsgBox "Is Not Worksheet"
End If
End Sub

If typename(activesheet)=worksheet then

"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

Bob,

Yes, thanks, you are right there.
Tend to forget this way of doing this.

RBS

"Bob Phillips" wrote in message
...
RB

Better

Function CheckIfWorkSheet(strSheet As String) As Boolean
CheckIfWorkSheet = TypeName(Sheets(strSheet)) = "Worksheet"
End Function



--

HTH

RP

"RB Smissaert" wrote in message
...
Thanks, I like that one.
Didn't know about TypeName.

This suits my purpose best:

Function CheckIfWorkSheet(strSheet As String) As Boolean
If TypeName(Sheets(strSheet)) = "Worksheet" Then
CheckIfWorkSheet = True
Else
CheckIfWorkSheet = False
End If
End Function

RBS


"Bill" wrote in message
...
Use typename.

Sub CheckifSheet()
If TypeName(ActiveSheet) = "Worksheet" Then
MsgBox "Is worksheet"
Else
MsgBox "Is Not Worksheet"
End If
End Sub

If typename(activesheet)=worksheet then

"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