auto detect deletion

[MR3]

my code looks for currently existing worksheets.

for example....

Sheets("Name").Delete
Sheets("Address").Delete
Sheets("Telephone #").Delete

if it does not detect these sheets the code errors out.
if it does it proceeds and completes the code as written. If I want to run the code I always have to comment out and uncomment that specific block of code.

should i use a case statement? or an if statement so that if it finds them it delete else it jumps out and continues?

 

[VoG]

Try this

If WorksheetExists("Name") Then Sheets("Name").Delete
If WorksheetExists("Address") Then Sheets("Address").Delete
If WorksheetExists("Telephone #") Then Sheets("Telephone #").Delete



Function WorksheetExists(WSName As String) As Boolean
On Error Resume Next
WorksheetExists = Worksheets(WSName).Name = WSName
On Error GoTo 0
End Function

 

[MR3]

hi VoG,

i am not exactly sure where to insert the "Function" code. Should i put it above or below the if / then statements?

thanks

 

[VoG]

You need to put it after your End Sub.

 

[MR3]

Thanks