See my second point in the response I gave to Dave's posting.

--
Rick (MVP - Excel)


"Gary''s Student" wrote in message
...
Function SheetExists(SName As String, _
Optional ByVal wb As Workbook) As Boolean
'Chip Pearson
On Error Resume Next
If wb Is Nothing Then Set wb = ThisWorkbook
SheetExists = CBool(Len(wb.Sheets(SName).Name))
End Function

--
Gary''s Student - gsnu200845


"Tom" wrote:

I want to test the worksheets collection for a specific worksheet name.
True/False response is what I'm loking for.
Suggestions?