Deleting Worksheets Based on Worksheet Name

[aryaden]

I currently have this code to delete all worksheets in a workbook other than the one named "Data" before running other macros. Currently if "Data" is the only worksheet in the workbook I get an error and the code stops running. This macro is a part of a larger set of macros and I have many workbooks to apply these series of macros on. Is there any way to tweak this code so that even if "Data" is the only sheet I will not get an error?

Sub Delete() 
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Data" Then
xWs.Delete
End If
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Thanks for all the help in advance!

 

[Fluff]

You should not get an error if it's the only sheet.
What error do you get & which line is highlighted when you click debug?

 

[jkpieterse]

The code should work just fine with a single sheet named "Data". But if the sheet is named "data", it will fail. SO update that line to:

If LCase(xWs.Name) <> "data" Then

 

[aryaden]

You should not get an error if it's the only sheet.
What error do you get & which line is highlighted when you click debug?

xWs.Delete is highlighted in yellow when "Data" is the only sheet

 

[jkpieterse]

I expect the name isn't data or Data but maybe contains a leading or trailing space?

 

[aryaden]

I expect the name isn't data or Data but maybe contains a leading or trailing space?

There aren't any leading or trailing spaces and the Sheet is named "Data" exactly to match my code.

 

[Fluff]

You didn't answer the first part of my question. But do you have any hidden sheets?

 

[aryaden]

You didn't answer the first part of my question. But do you have any hidden sheets?

That seemed to be it, I got rid of the hidden sheets. Thanks!

 

[Fluff]

Glad we could help & thanks for the feedback.