deleting worksheets msg box
thanks for your help susan
"Susan" wrote:
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
On Jun 5, 1:38 pm, JLGWhiz wrote:
Sub DeleShts()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
If Sheet.Name < "Sheet1" Then
sh.Delet
End If
Next
End Sub
"Paulo" wrote:
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- Hide quoted text -
- Show quoted text -
|