If sheet1 exists then delete, if not End If 1

[JamieArvato]

How do I write code to say if there is a sheet1 in the workbook then delete if not then end if.

thanks

 

[RoyVidar]

Something like this?

[tt]dim sh as worksheet
application.displayalerts=false
for each sh in thisworkbook.worksheets
if ucase(sh.name) = "SHEET1" then
sh.delete
end if
next sh
application.displayalerts=true[/tt]

Roy-Vidar

 

[Molby]

As a side note, this wont work if there is only 1 sheet in the workbook.

 

[Loomah]

Another way to skin this particular cat is

Application.DisplayAlerts = False
On Error Resume Next
Worksheets("sheet1").Delete
On Error GoTo 0
Application.DisplayAlerts = True

Molby's comment is still relevant here!

;-)

If a man says something and there are no women there to hear him, is he still wrong?
How do I get the best answers?​