Is there a way to check to see if a worksheet is present in a workbook?

Dim sh as Worksheet
On error resume next
set sh = Workbooks("BookA.xls").Worksheets("Sheet9")
On error goto 0
if sh is nothing then
msgbox "Sheet9 not in BookA.xls"
else
msgbox "Sheet9 was found in BookA.xls"
End If

--
Regards,
Tom Ogilvy


"Dthmtlgod" wrote in message
...
Is there a way to check to see if a worksheet is present in a workbook?