셀 서식이 너무 많습니다.

[보명(普明吉永)]

매크로는 다음과 같습니다.

'
'
sub 셀서식이너무많습니다
Dim Nam As Name
Dim n As Integer, yn As Byte
On Error Resume Next
For Each Nam In Names
Nam.Delete
Next Nam

For n = ActiveWorkbook.Styles.Count To 1 Step -1
If ActiveWorkbook.Styles(n).Name = "Normal" Then
Else
ActiveWorkbook.Styles(n).Delete
End If
Next
'
' 메크로를 실행하면 불필요한 스타일은 모두 삭제 된다.
' 2003 버전 : 도구 > 메크로 > 메크로 > 셀서식이너무많습니다 선택 > 실행
' 2007 버전 : 보기 > 메크로 글자 위의 이미지 클릭 > 셀서식이너무많습니다 선택 > 실행
end sub