Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
delete worksheet with chart?
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
delete worksheet with chart?
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
delete worksheet with chart?
Thank you very much--that was what I needed to know!
"Andy Pope" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
delete value on worksheet 2 that match values on worksheet 1 | Excel Discussion (Misc queries) | |||
How to delete chart | Charts and Charting in Excel | |||
delete chart | Excel Discussion (Misc queries) | |||
How to delete a duplicate Excel worksheet within that worksheet? | Excel Discussion (Misc queries) | |||
Using VBA to Delete a Chart | Excel Programming |