Sub Xoa_Rac()
Dim Wb As Workbook, CurStyle As Style, n As Name
Dim sh As Worksheet, hinh_rac As Shape
On Error Resume Next
For Each Wb In Application.Workbooks
'xoa style rac
For Each CurStyle In Wb.Styles
Select Case CurStyle.Name
Case "20% - Accent1", "20% - Accent2", _
"20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _
"40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _
"40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _
"60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _
"Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _
"Bad", "Calculation", "Check Cell", "Comma", "Comma [0]", "Currency", _
"Currency [0]", "Explanatory Text", "Good", "Heading 1", "Heading 2", _
"Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _
"Note", "Output", "Percent", "Title", "Total", "Warning Text"
Case Else
CurStyle.Delete
End Select
Next CurStyle
'xoa name rac
For Each n In Wb.Names
n.Visible = True
n.Delete
Next
'xoa hinh rac
For Each sh In Wb.Sheets
For Each hinh_rac In sh.Shapes
hinh_rac.Visible = True
hinh_rac.Delete
Next
Next
Next
End Sub
Chắc do máy cùi quá 
