About Us

Al[_12_]

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

.

.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro for Deleting Worksheets	andiam24	Excel Discussion (Misc queries)	2	April 2nd 09 03:47 PM
Deleting worksheets	David	Excel Discussion (Misc queries)	2	January 19th 07 08:19 PM
Deleting blank worksheets	Lvenom	Excel Worksheet Functions	3	June 15th 06 12:28 AM
Help deleting worksheets	Wilhelmutt	Excel Discussion (Misc queries)	2	April 19th 05 03:23 AM

Menu

About Us