Dr. Schwartz -- maybe try something like this ...


Sub DeleteSheets()

Dim WSCodeNum As Integer

' Suspend error handling
On Error Resume Next

' Suspend alerts
Application.DisplayAlerts = False

For WSCodeNum = 1 To 32

Worksheets("P" & WSCodeNum).Delete

Next

' Reinstate alerts
Application.DisplayAlerts = True

End Sub


--

Hope it Helps,

- Rodney POWELL
Microsoft MVP - Excel

Beyond Technology
Spring, Texas USA
www.BeyondTechnology.com




"Dr.Schwartz" wrote in message ...
I want to delete x number of sheets. How can I assign the sheet code name to
a variable to make this piece of code work:

'Removing any existing report sheets
Dim WSCodeNum As Integer, WSCodeName
For WSCodeNum = 1 To 32
WSCodeName = "P" & WSCodeNum
Application.DisplayAlerts = False
WSCodeName.Delete
On Error Resume Next
Application.DisplayAlerts = True
Next

By the error I get I'm guessing the WSCodeName should be declared differently?

Thanks
The Doctor