Deleting worksheets in a procedure
That was PERFECT!!!
Thx MUCH!!
-----Original Message-----
The following example deletes
sheets "Sheet5", "Sheet4", "Sheet1" if they exist. You
can
easily modify to accomodate your sheet names and number.
Sub delete_sheets()
Dim sh(3) As String
sh(1) = "Sheet5"
sh(2) = "Sheet4"
sh(3) = "Sheet1"
On Error Resume Next
Application.DisplayAlerts = False
For i = 1 To 3
Sheets(sh(i)).Delete
Next
Application.DisplayAlerts = True
On Error GoTo 0
End Sub
Nikos Y. (nyannaco at in dot gr)
-----Original Message-----
I am trying to create a small procedure to delete
worksheets if they are present. What is the code to
test
if said sheet exists, and then delete it if it exists?
Thx MUCH in advance,
Al
.
.
|