Range('A1:C1') = Array('Delete', 'Style Name', 'Number')Д¬olumns('A').HorizontalAlignment = xlCenter Wks.Name = Format(Now(), '|yymmddhhmmss') If LCase(Cells(iRow, 'A').Value) = 'x' ThenДЄctiveWorkbook.Styles(Cells(iRow, 'B').Value).DeleteДЄpplication.Calculation = xlCalculationAutomatic Cells(Rows.Count, 'B').End(xlUp).Row To 2 Step -1 This link to the Microsoft Support site has a VBA program that resets the styles to their defaults.ДЄpplication.Calculation = xlCalculationManualДЇor iRow =. 20% - Accent1 Accent3 Currency 7 16 Currency 7 2 2 9 Currency 7 3 2 Currency 7 9 Normal 10 17 20% - Accent2 Accent4 Currency 7 2 Currency 7 2 3 Currency 7 3 3 Explanatory Text Normal 10 2 20% - Accent3 Accent5 Currency 7 2 10 Currency 7 2 3 2 Currency 7 3 4 Good Normal 10 2 10 20% - Accent4 Accent6 Currency 7 2 11 Currency 7 2 3 3 Currency 7 3 5 Heading 1 Normal 10 2 11 20% - Accent5 Bad Currency 7 2 12 Currency 7 2 3 4 Currency 7 3 6 Heading 2 Normal 10 2 12 20% - Accent6 Calculation Currency 7 2 13 Currency 7 2 3 5 Currency 7 3 7 Heading 3 Normal 10 2 13 40% - Accent1 Check Cell Currency 7 2 14 Currency 7 2 3 6 Currency 7 3 8 Heading 4 Normal 10 2 2 40% - Accent2 Comma Currency 7 2 15 Currency 7 2 3 7 Currency 7 3 9 Hyperlink Normal 10 2 3 40% - Accent3 Comma Currency 7 2 2 Currency 7 2 3 8 Currency 7 4 Input Normal 10 2 4 40% - Accent4 Currency Currency 7 2 2 10 Currency 7 2 4 Currency 7 4 2 Linked Cell Normal 10 2 5 40% - Accent5 Currency Currency 7 2 2 11 Currency 7 2 5 Currency 7 4 3 Neutral Normal 10 2 6 40% - Accent6 Currency 2 Currency 7 2 2 12 Currency 7 2 6 Currency 7 4 4 Normal Normal 10 2 7 60% - Accent1 Currency 2 2 Currency 7 2 2 13 Currency 7 2 7 Currency 7 4 5 Normal 10 Normal 10 2 8 60% - Accent2 Currency 7 Currency 7 2 2 2 Currency 7 2 8 Currency 7 4 6 Normal 10 10 Normal 10 2 9 60% - Accent3 Currency 7 10 Currency 7 2 2 3 Currency 7 2 9 Currency 7 4 7 Normal 10 11 Normal 10 3 60% - Accent4 Currency 7 11 Currency 7 2 2 4 Currency 7 3 Currency 7 4 8 Normal 10 12 Normal 10 3 10 60% - Accent5 Currency 7 12 Currency 7 2 2 5 Currency 7 3 10 Currency 7 5 Normal 10 13 Normal 10 3 11 60% - Accent6 Currency 7 13 Currency 7 2 2 6 Currency 7 3 11 Currency 7 6 Normal 10 14 Normal 10 3 12 Accent1 Currency 7 14 Currency 7 2 2 7 Currency 7 3 12 Currency 7 7 Normal 10 15 Normal 10 3 13 Accent2 Currency 7 15 Currency 7 2 2 8 Currency 7 3 13 Currency 7 8 Normal 10 16 Normal 10 3 2

CCell.Offset(RowOffset:=lngCtr - 1).Value =.

Clear all formatting excel doc