if statement to delete sheets

[Dummy Excel]

Hi Guys,
I need to write some code so that if a worksheet is there ie DATA, then the macro removes that worksheet.

any help would be greatly appreciated
thanks
Sam

 

[zzjasonzz]

try:

For Each ws In ThisWorkbook.Worksheets
     If ws.Name = "DATA" Then
        Application.DisplayAlerts = False
        ws.Delete
        Application.DisplayAlerts = True
    End If
Next ws

 

[Dummy Excel]

when I run this, it looks like it does something, however it doesnt delete the worksheet

 

[jindon]

On Error Resume Next
Application.DesplayAlerts = False
Sheets("Data").Delete
Application.DisplayAlerts = True
End Sub

It will not delete the sheet if it is the only sheet in the workbook.

 

[Dummy Excel]

sorry it does work - i just relised that it is case sensitive.
Is there anyway that we can make it so that it is not case sensitive?

thanks

 

[jindon]

Hey, it is not "Case sensitive" at all.