Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Custom Cell Style - Shows as error and cannot be deleted
I am using Excel 2007.
I have a large workbook (assembled from many sources) that contained many unused custom cell styles. I was able to delete all of the custom styles (many thanks to members of this discussion group) except one. There is a style with the name 1. If I try to click on it in the ribbon I get a system message box stating: Style ' 1' not found. If i use this code in VBA Sub ststyles() i = ActiveWorkbook.Styles.Count For A = 1 To i ActiveCell = ActiveWorkbook.Styles(A).Name ActiveCell.Offset(1, 0).Select Next A It shows up as the first style on the list. I used this code to find the exact name. Sub testdelete() A = ActiveWorkbook.Styles(1).Name ActiveWorkbook.Styles(A).Delete End Sub In the watch window A=" 1", but the program errors out on the delete line with a message: Run-time error '1004': Delete method of Style class failed I even tried Activeworkbook.Styles(1).Delete and got the same error. Any ideas how to get rid of this style? -- If this helps, please remember to click yes. |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Deleting Style 1 not found
According to this site:
http://www.mrexcel.com/forum/showthread.php?t=40950 The error results because you have more than the maximu number of Styles. Delete a few manually, then delete style 1. Worked for me... Paul wrote: Custom Cell Style - Shows as error and cannot be deleted 09-Apr-09 I am using Excel 2007. I have a large workbook (assembled from many sources) that contained many unused custom cell styles. I was able to delete all of the custom styles (many thanks to members of this discussion group) except one. There is a style with the name 1. If I try to click on it in the ribbon I get a system message box stating: Style ' 1' not found. If i use this code in VBA Sub ststyles() i = ActiveWorkbook.Styles.Count For A = 1 To i ActiveCell = ActiveWorkbook.Styles(A).Name ActiveCell.Offset(1, 0).Select Next A It shows up as the first style on the list. I used this code to find the exact name. Sub testdelete() A = ActiveWorkbook.Styles(1).Name ActiveWorkbook.Styles(A).Delete End Sub In the watch window A=" 1", but the program errors out on the delete line with a message: Run-time error '1004': Delete method of Style class failed I even tried Activeworkbook.Styles(1).Delete and got the same error. Any ideas how to get rid of this style? -- If this helps, please remember to click yes. Previous Posts In This Thread: On Thursday, April 09, 2009 1:47 PM Paul wrote: Custom Cell Style - Shows as error and cannot be deleted I am using Excel 2007. I have a large workbook (assembled from many sources) that contained many unused custom cell styles. I was able to delete all of the custom styles (many thanks to members of this discussion group) except one. There is a style with the name 1. If I try to click on it in the ribbon I get a system message box stating: Style ' 1' not found. If i use this code in VBA Sub ststyles() i = ActiveWorkbook.Styles.Count For A = 1 To i ActiveCell = ActiveWorkbook.Styles(A).Name ActiveCell.Offset(1, 0).Select Next A It shows up as the first style on the list. I used this code to find the exact name. Sub testdelete() A = ActiveWorkbook.Styles(1).Name ActiveWorkbook.Styles(A).Delete End Sub In the watch window A=" 1", but the program errors out on the delete line with a message: Run-time error '1004': Delete method of Style class failed I even tried Activeworkbook.Styles(1).Delete and got the same error. Any ideas how to get rid of this style? -- If this helps, please remember to click yes. Submitted via EggHeadCafe - Software Developer Portal of Choice WPF Binding Beyond the Limitation of Name Scopes http://www.eggheadcafe.com/tutorials...nd-the-li.aspx |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Custom Cell Style - Shows as error and cannot be deleted
On Thursday, April 9, 2009 11:47:01 AM UTC-6, Paul C wrote:
I am using Excel 2007. I have a large workbook (assembled from many sources) that contained many unused custom cell styles. I was able to delete all of the custom styles (many thanks to members of this discussion group) except one. There is a style with the name 1. If I try to click on it in the ribbon I get a system message box stating: Style ' 1' not found. If i use this code in VBA Sub ststyles() i = ActiveWorkbook.Styles.Count For A = 1 To i ActiveCell = ActiveWorkbook.Styles(A).Name ActiveCell.Offset(1, 0).Select Next A It shows up as the first style on the list. I used this code to find the exact name. Sub testdelete() A = ActiveWorkbook.Styles(1).Name ActiveWorkbook.Styles(A).Delete End Sub In the watch window A=" 1", but the program errors out on the delete line with a message: Run-time error '1004': Delete method of Style class failed I even tried Activeworkbook.Styles(1).Delete and got the same error. Any ideas how to get rid of this style? -- If this helps, please remember to click yes. Paul - were you ever able to fix this? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
'Reset to Match Style' removes all formatting from custom chart | Charts and Charting in Excel | |||
07 Custom style does display banded column styles in preview | Excel Discussion (Misc queries) | |||
Style 'Percent' not found error message. | Excel Discussion (Misc queries) | |||
cell shows 20. Formula shows 20. why not 540/27 | Excel Worksheet Functions | |||
Custom format that shows blank cell if another cell is empty | Excel Discussion (Misc queries) |