How can I programmatically check in Excel 2002 if a sheet exists?

[Guest]

from within the workbook, using VB, I need check all of the worksheet names
to see if a name exists - listnames method(?) pastes them to a cell but I
need to check within the list to see if it exists. Thanks.

 

[Bob Phillips]

Here is a function

'-----------------------------------------------------------------
Function SheetExists(Sh As String, _
Optional wb As Workbook) As Boolean
'-----------------------------------------------------------------
Dim oWs As Worksheet
If wb Is Nothing Then Set wb = ActiveWorkbook
On Error Resume Next
SheetExists = CBool(Not wb.Worksheets(Sh) Is Nothing)
On Error GoTo 0
End Function



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Guest]

Works like a charm - thanks very much Bob!
-tom

Here is a function

'-----------------------------------------------------------------
Function SheetExists(Sh As String, _
Optional wb As Workbook) As Boolean
'-----------------------------------------------------------------
Dim oWs As Worksheet
If wb Is Nothing Then Set wb = ActiveWorkbook
On Error Resume Next
SheetExists = CBool(Not wb.Worksheets(Sh) Is Nothing)
On Error GoTo 0
End Function



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)