VBA Delete current work sheet if not a specific title

[mrmrf]

Hi.

Im needing help for VBA to delete current work sheet if not a specific name.

Quite a lot of examples out, but can't seem to adapt.

Thanks.

 

[footoo]

Application.DisplayAlerts = False
If ActiveSheet.Name = "Sheet1" Then ActiveSheet.Delete
Application.DisplayAlerts = True

 

[Rick Rothstein]

Application.DisplayAlerts = False
If ActiveSheet.Name = "Sheet1" Then ActiveSheet.Delete
Application.DisplayAlerts = True

The OP said "delete current work sheet if not a specific name", so I think your equal sign (=) should be a not equal sign (<>).

 

[mrmrf]

Thanks footoo, but what if i dont want it to delete the active sheet if its a specific name.

For example, i could have sheet1, sheet2, sheet3. Each page has this code to delete, but i dont want it to delete if the name is sheet1

 

[footoo]

See post # 3

 

[mrmrf]

Perfect. Thanks all.

 

[mrmrf]

Actually, the code works and delets as require, but i get this error

run-time error '-2147221080 (800401a8) automation error

Not sure why?

 

[footoo]

Do you have the macro containing the code in the sheet module being deleted?
If so, put in a normal module instead.

 

[mrmrf]

Yep, that seemed to have solved.

Thanks.