asdzxc
09-01-2013, 09:20 PM
Sub delete()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> "Input" Then ws.delete
Next
Application.DisplayAlerts = True
End Sub
the above vba delete all sheets except "Input" but not the charts. I want all charts to be deleted also.
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> "Input" Then ws.delete
Next
Application.DisplayAlerts = True
End Sub
the above vba delete all sheets except "Input" but not the charts. I want all charts to be deleted also.