My compiler doesn't recognize WorksheetExists(sheet,book). Is there a
setting in references I need to set?

Download from Pearson's site or:

Function WorksheetExists(SheetName As Variant, _
Optional WhichBook As Workbook) As Boolean
'from Chip Pearson
Dim WB As Workbook
Set WB = IIf(WhichBook Is Nothing, ThisWorkbook, WhichBook)
On Error Resume Next
WorksheetExists = CBool(Len(WB.Worksheets(SheetName).Name) 0)
End Function

--
Gary''s Student - gsnu200793


"Steve" wrote:

My compiler doesn't recognize WorksheetExists(sheet,book). Is there a
setting in references I need to set?

For the OP

See also this page for more info
http://www.rondebruin.nl/exist.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Gary''s Student" wrote in message
...
Download from Pearson's site or:

Function WorksheetExists(SheetName As Variant, _
Optional WhichBook As Workbook) As Boolean
'from Chip Pearson
Dim WB As Workbook
Set WB = IIf(WhichBook Is Nothing, ThisWorkbook, WhichBook)
On Error Resume Next
WorksheetExists = CBool(Len(WB.Worksheets(SheetName).Name) 0)
End Function

--
Gary''s Student - gsnu200793


"Steve" wrote:

My compiler doesn't recognize WorksheetExists(sheet,book). Is there a
setting in references I need to set?