Deleting sheets

's Computer Specifications

I want a command button that deletes all sheets except the one named Master

's Computer Specifications

Try the below

Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Sheets
If ws.Name <> "Master" Then ws.Delete
Next
Application.DisplayAlerts = True

--
Jacob

"oldjay" wrote:

> I want a command button that deletes all sheets except the one named Master

's Computer Specifications

Thanks

"Jacob Skaria" wrote:

> Try the below
>
> Dim ws As Worksheet
> Application.DisplayAlerts = False
> For Each ws In Sheets
> If ws.Name <> "Master" Then ws.Delete
> Next
> Application.DisplayAlerts = True
>
> --
> Jacob
>
>
> "oldjay" wrote:
>
> > I want a command button that deletes all sheets except the one named Master

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Re: Deleting Custom Views when Deleting Sheets	NickHK	Microsoft Excel Programming	0	28th Mar 2007 06:11 AM
Deleting sheets	TK	Microsoft Excel Programming	2	31st Aug 2005 06:02 AM
deleting sheets	=?Utf-8?B?S0xQ?=	Microsoft Excel Misc	3	14th Jan 2005 12:24 AM
Deleting Sheets with @	ianripping	Microsoft Excel Misc	3	17th Jan 2004 01:48 PM
Deleting sheets	Denny	Microsoft Excel Misc	3	11th Oct 2003 05:04 PM