check if certain worksheet exists and delete

[asdfasdf]

does anyone know how to check if a worksheet exists called "workingdata" and delete it if it does?
If the workingdata worksheet does not exist i just want to carry on with the rest of the things i've coded. i can't use the set worksheet as ... because if it doesn't exist then the whole thing won't work

thanks

 

[Tom Urtis]

One of these examples might help you:

http://www.atlaspm.com/faqwsnameexist.html#76

 

[taigovinda]

You could put this outside of your macro:

Function SheetExists(ByVal wsName As String) As Boolean
    On Error Resume Next
    SheetExists = (Len(Sheets(wsName).Name) > 0)
  [FONT=&quot]End Function[/FONT]

and then put this inside your macro:

if sheetexists("workingdata") then sheets("workingdata").delete

 

[asdfasdf]

thanks. got it!

 

[mikerickson]

Why test first?

On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("WorkingData").Delete
    Application.DisplayAlerts = True
On Error Goto 0

 

[taigovinda]

Why test first?

On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("WorkingData").Delete
    Application.DisplayAlerts = True
On Error Goto 0

Good point - thanks!