Delete all but 1 sheet in workbook

  • Thread starter Thread starter cdclayton
  • Start date Start date
C

cdclayton

A2K

Using code, how do I loop through all the worksheets in a workbook and
delete all but the first one, "Sheet1"

Thanks,

Charles D Clayton Jr
 
try
Sub deleteallsheets()
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> "Sheet1" Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub
 
Thanks for your help. One more question, is it possible to have this
work no matter what the sheet is renamed to?

Thanks,

Charles D Clayton Jr
 
try
Sub deleteallsheets()
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Index <> 1 Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to reference a cell from anther workbook without opening it 0
Excel How to capture data to a specified excel sheet(first workbook) of two different workbooks from the 0
Delete sheets code error requires object 2
Cell values to an array, then array transpose to another workbook 8
VBA code for pasting links -- modifying RDB code for summary workbook 10
Name of STMP Server 2
Copying cells and formula from closed workbook to all sheets in open workbook 0
How to append data from different sheet and different workbook? 2

Back
Top