How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie

Application.DisplayAlerts=False
Worksheets("PLANID ").Delete
Worksheets("FEETOTAL ").Delete
Application.DisplayAlerts=True


"Jodie" wrote in message
...
How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie

remove the unwanted space after the sheet name and quote mark - happened
when I copied the names.
Application.DisplayAlerts=False
Worksheets("PLANID").Delete
Worksheets("FEETOTAL").Delete
Application.DisplayAlerts=True




"Patrick Molloy" wrote in message
...
Application.DisplayAlerts=False
Worksheets("PLANID ").Delete
Worksheets("FEETOTAL ").Delete
Application.DisplayAlerts=True


"Jodie" wrote in message
...
How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie

Try this
Sub deleteSheets()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
With Application
.DisplayAlerts = False
With ws
If .Name = "PLANID" Or .Name = "FEETOTAL" Then
.Delete
End If
End With
.DisplayAlerts = True
End With
Next
End Sub

"Jodie" wrote:

How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie

try this
Sub deleteSheets()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
With Application
.DisplayAlerts = False
With ws
If .Name = "PLANID" Or .Name = "FEETOTAL" Then
.Delete
End If
End With
.DisplayAlerts = True
End With
Next
End Sub

"Jodie" wrote:

How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie

sub deleter()

worksheets("PLANID").delete
worksheets("FEETOTAL").delete

end


"Jodie" wrote:

How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie

Sheets("PLANID").Delete

"Jodie" wrote:

How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie

Sub Macro()
Application.DisplayAlerts = False
Sheets("Sheet2").Delete
'To delete more than one sheet
'Sheets(Array("Sheet2", "Sheet3")).Delete
Application.DisplayAlerts = True
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Jodie" wrote:

How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie

Sub SheetKiller()
Application.DisplayAlerts = False
Sheets("PLANID").Delete
Sheets("FEETOTAL").Delete
Application.DisplayAlerts = True
End Sub

--
Gary''s Student - gsnu200908

sub deleter()

worksheets("PLANID").delete
worksheets("FEETOTAL").delete

end


"Jodie" wrote:

How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie

Sub Macro()
Application.DisplayAlerts = False
Sheets("PLANID").Delete
'to delete both
'Sheets(Array("PLANID","FEETOTAL")).Delete
Application.DisplayAlerts = True
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Jodie" wrote:

How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie

Thank you Mike, this worked great and did not give me any pop up messages
about permanently deleting sheets.
--
Thank you, Jodie


"Mike" wrote:

Try this
Sub deleteSheets()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
With Application
.DisplayAlerts = False
With ws
If .Name = "PLANID" Or .Name = "FEETOTAL" Then
.Delete
End If
End With
.DisplayAlerts = True
End With
Next
End Sub

"Jodie" wrote:

How can I delete sheets with the names PLANID or FEETOTAL through VBA?
--
Thank you, Jodie