deleting worksheets msg box

[Paulo]

hi,
I am very new @ coding. just started yesterday...
I have 2 problems right now...
I have several tabs, and I whant a macro to erase em all, but , Sheet(1).
(1) my macro is kinda doing it, but i dont know how to make it to loop.
(2) as the macro runs the " Worksheets(DB).Delete " line, excel pops up a
msg box confirming the lost of data on the sheet deleted, how do i work
around that?

I thank in advance...
my curent code is
Private Sub CommandButton2_Click()
Dim x As Long
Dim DB As Long
Dim Wsht As Long
Wsht = Worksheets.Count
Debug.Print Wsht
For DB = 2 To Wsht
Debug.Print DB
Exit For
Next
Worksheets(DB).Delete
End Sub

 

[JLGWhiz]

Sub DeleShts()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
If Sheet.Name <> "Sheet1" Then
sh.Delet
End If
Next
End Sub

 

[Rick Rothstein \(MVP - VB\)]

I am very new @ coding. just started yesterday...

Out of curiosity, was it really easier to hit Shift+2 (assuming an American

I have 2 problems right now...
I have several tabs, and I whant a macro to erase em all, but , Sheet(1).
(1) my macro is kinda doing it, but i dont know how to make it to loop.
(2) as the macro runs the " Worksheets(DB).Delete " line, excel pops up a
msg box confirming the lost of data on the sheet deleted, how do i work
around that?

This code should do what you ask...

Sub RemoveSheets()
Dim X As Long
Worksheets(1).Select
On Error GoTo CleanUp
Application.DisplayAlerts = False
For X = Worksheets.Count To 2 Step -1
Worksheets(X).Delete
Next
CleanUp:
Application.DisplayAlerts = True
End Sub

Rick

 

[Susan]

JLG forgot about the warning you wanted ignored......
==========================
Option Explicit

Sub DeleShts()
Dim sh As Worksheet

Application.DisplayAlerts = False

For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Sheet1" Then
sh.Delete
End If
Next

Application.DisplayAlerts = True

End Sub
=====================

susan

 

[Paulo]

Rick, worked great
tanks again, life saver...

Out of curiosity, was it really easier to hit Shift+2 (assuming an American


This code should do what you ask...

Sub RemoveSheets()
Dim X As Long
Worksheets(1).Select
On Error GoTo CleanUp
Application.DisplayAlerts = False
For X = Worksheets.Count To 2 Step -1
Worksheets(X).Delete
Next
CleanUp:
Application.DisplayAlerts = True
End Sub

Rick

 

[Paulo]

thanks for your help susan

JLG forgot about the warning you wanted ignored......
==========================
Option Explicit

Sub DeleShts()
Dim sh As Worksheet

Application.DisplayAlerts = False

For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Sheet1" Then
sh.Delete
End If
Next

Application.DisplayAlerts = True

End Sub
=====================

susan

 

[Paulo]

JLGWIHIZ thanks for helping out ...

Sub DeleShts()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
If Sheet.Name <> "Sheet1" Then
sh.Delet
End If
Next
End Sub