vba to delete all sheets except one

D

dpaton05

Well-known Member
Joined
Aug 14, 2018
Messages
2,352
Office Version
  1. 365
  2. 2016
Platform
  1. Windows
Can someone help me with the vba to delete all sheets except 1 please?
 

Excel Facts

Excel Can Read to You
Customize Quick Access Toolbar. From All Commands, add Speak Cells or Speak Cells on Enter to QAT. Select cells. Press Speak Cells.
Sort by date Sort by votes
Code: 
Application.DisplayAlerts = False
Do until Sheets.Count = 1
    Sheets(1).Delete
Loop
Application.DisplayAlerts = True
 
Upvote 0
You must log in or register to reply here.

Similar threads

S
  • Solved
How to select and delete special objects?
Replies
8
Views
141
jolivanes
jolivanes
L
  • Question
Auto-Archive deleted Rows in Excel
2 3 4
Replies
30
Views
477
liljunga
L
R
  • Question
Filter & Delete Deleting Header Row Suddenly
Replies
0
Views
240
reberryjr
R
T
  • Question
Rename column L on all worksheets except 3 sheets
Replies
1
Views
61
Joe4
Joe4
B
  • Solved
VBA to delete certain sheets based on cell contents with IF formula
Replies
3
Views
203
Peter_SSs
Peter_SSs

Forum statistics

Threads
1,215,419
Messages
6,124,796
Members
449,189
Latest member
kristinh

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top