Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete blank style
I have a workbook with some blank styles which there's no way of deleting them. There's a post from Jim Rech which suggested this code
Sub a( Dim Stile As Style, Resp As Intege For Each Stile In ActiveWorkbook.Style If Stile.BuiltIn = False The Resp = MsgBox("Delete " & Stile.Name, vbYesNoCancel If Resp = vbYes The Stile.Delet ElseIf Resp = vbCancel The Exit Su End I End I Nex End Su This still doesn't work. Would have like to attach a sample wk, but couldn't Any suggestions other than stripping out and rebuilding the workbook. If so, any tools to do this TIA hh |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
2002: Unable to delete Normal_xyz style inherited from workbook(xy | Excel Discussion (Misc queries) | |||
How do I change sheet notation from R1C1 style to A1 style in XL 2 | Setting up and Configuration of Excel | |||
How do I convert US style dates to European style? | Excel Discussion (Misc queries) | |||
can a1 reference style and r1c1 style be used in same formula? | Excel Worksheet Functions | |||
Can not delete Excel Style | Excel Discussion (Misc queries) |