Macro Delete Sheet

  • Thread starter Thread starter Stephen
  • Start date Start date
S

Stephen

Hi

Within a macro I want to delete a certain sheet. What is the best wa
to do that?

Stephe
 
Hi
try
Application.displayalerts = false
worksheets("sheetname").delete
Application.displayalerts = True
 
What if you wanted a macro to look thru the workbook and delete all th
sheets named Chart*? How would you get a macro to look through th
whole workbook
 
One way.

Option Explicit
Sub testme02()

Dim mySheet As Object

Application.DisplayAlerts = False
On Error Resume Next

For Each mySheet In ActiveWorkbook.Sheets
If LCase(mySheet.Name) Like "chart*" Then
mySheet.Delete
End If
Next mySheet

On Error GoTo 0
Application.DisplayAlerts = True

End Sub

The ".displayalerts = false" stops the "are you sure" prompts.

The "on error" stuff prevents an error if you try to delete the only visible
sheet remaining. (There always has to be at least one visible sheet in your
workbook.)
 
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

i need to find the exact location of macro to paste in the existing macro need to get the out put co 0
Macro to hide sheets based upon cell value 3
macro-delete all sheets except 6
Excel 2007: Help creating a macro that will run Solver? 3
change of cells address 11
Running macro on certain worksheets 0
getting rid of the "confirm delete" dialogue box when deleting a s 5
diable macro if a certain sheet is active 3

Back
Top