Delete Sheets in Excel [Closed]

Question

Delete Sheets in Excel [Closed]

Report

ujo

Posts: 8
Registration date: Wednesday July 15, 2009
Status: Member
Last seen: September 23, 2009

- Jul 22, 2009 at 02:38 AM
venkat1926

Posts: 1862
Registration date: Sunday June 14, 2009
Status: Contributor
Last seen: July 30, 2015

- Jul 22, 2009 at 05:45 AM

Hello,

I am looking for a VBA macro that can delete all the sheets in Excel the start with name "Sheet".
Also if no such sheet name is found it should give a simple msg box saying No sheet found. And if delete is successful it should say Sheets deleted.

Regards
Ujo

Delete Sheets in Excel
How to apply a formula to multiple sheets in excel - How-To - Excel
Transfer data between sheets in excel - How-To - Excel
How to copy a formula across multiple sheets in excel ✓ - Forum - Excel
Macro to compare two sheets in excel ✓ - Forum - Excel
VBA Command to Select Last Sheet of Excel Workbook - How-To - Excel

1 reply

Ask a question

venkat1926 · Accepted Answer · 2009-07-22T05:45:32-0400

Answer 1 / 1

venkat1926

Posts: 1862
Registration date: Sunday June 14, 2009
Status: Contributor
Last seen: July 30, 2015

792
Jul 22, 2009 at 05:45 AM

Tha macro is

Sub test()
Dim j As Integer, k As Integer
Application.DisplayAlerts = False
j = Worksheets.Count
For k = 1 To j
If Worksheets(k).Name = "sheet" Then
Worksheets(k).Delete
GoTo line1
End If
Next k
line1:
Application.DisplayAlerts = True
End Sub

Delete Sheets in Excel [Closed]

1 reply

Your reply

Subscribe To Our Newsletter!