Yet another way


'-----------------------------------------------------------------
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

(replace somewhere in email address with gmail if mailing direct)

"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
i think this is a similar way

Sub wsexist()
On Error Resume Next
Worksheets("data").Activate
If Worksheets("data") Is Nothing Then
MsgBox "sheet does not exist"
Else
MsgBox "sheet exists"
End If

End Sub

--


Gary


"Peter" wrote in message
...
Hi,

I'm trying to write a macro that performs a check on whether a Sheet
Exists
or not.

If the Sheet named "Data" Exists the user should be prompted for
accepting
the Sheet to be deleted.
If not the Sheet should be added to the Excel Workbook. The last part is
easy but checking if the Sheet exists is troublesome. I have tried the
Object.Exists(Key) but recieves an error.

I could probably use the Worksheets("Data").Delete command to simply
delete
the Sheet "Data" and then continue adding the Sheet.

But then I would need to drop the Add.Sheet procedure if the user do not
accept that the Sheet gets deleted.

Could anyone help me out here