Hi,

If it's a chartsheet it will make all the difference as you are using
Worksheets() to return a reference.
try this instead should work if sheet is a work or chart sheet.

Sub RemoveSheet()
Dim sh As Object

On Error Resume Next
Set sh = Sheets("Summary")
On Error GoTo 0
If Not sh Is Nothing Then
sh.Delete
End If
End Sub

Cheers
Andy

Judy Ward wrote:
I have a macro that is supposed to delete a sheet from the active workbook:
Sub RemoveSheet()
Dim sh As Object

On Error Resume Next
Set sh = Worksheets("Summary")
On Error GoTo 0
If Not sh Is Nothing Then
sh.Delete
End If
End Sub

The sheet is not deleted. I have double-checked the name of the sheet using:
MsgBox "Sheet name is: x" & ActiveSheet.Name & "x"
There are no leading or trailing spaces. Does it matter that this sheet is
a chart?

I would appreciate any help you can give me with checking to see if a sheet
exists before trying to delete it.

Thank you,
Judy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info