About Us

Corey

Thanks.

Worked a treat

Cheers

Corey....
"JMB" wrote in message
...
This seems to work for me. Backup before trying.

Sub DeleteSheets()
Dim i As Long

On Error Resume Next
Application.DisplayAlerts = False

For i = 3 To Worksheets.Count
Worksheets(CStr(i)).Delete
Next i

Application.DisplayAlerts = True
End Sub

"Corey" wrote:

Application.DisplayAlerts = False
Worksheets("3").Delete
Application.DisplayAlerts = False
Worksheets("4").Delete
Application.DisplayAlerts = False
Worksheets("5").Delete

Is there a way to adapt the above code to simply delete ALL sheets than
2

Tried WorkSheets.Delete"2"
but get an error

Corey....

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
Deleting worksheets	David	Excel Discussion (Misc queries)	2	January 19th 07 08:19 PM
Deleting Worksheets in VBA	Knut Dahl	Excel Programming	4	May 23rd 05 07:22 PM
Help deleting worksheets	Wilhelmutt	Excel Discussion (Misc queries)	2	April 19th 05 03:23 AM
Deleting worksheets	Alan L. Wagoner	Excel Programming	4	January 24th 05 03:19 PM
Deleting worksheets	Oscar	Excel Programming	1	July 23rd 04 04:36 AM

Menu

About Us