Deleting Style 1 not found
in [Functions]
|
Prev: Is there a way to conditionally hide rows in Excel?
Next: in excel how can we put formula to convert numericalfigureto word
From: Mike van de on 6 May 2010 20:42 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/aspnet/ef583104-e507-491d-b05f-49faac8854c8/wpf-binding-beyond-the-li.aspx |