반응형
Sub Style_Delete()
Dim n As Integer, yn As Byte
On Error Resume Next
For n = ActiveWorkbook.Styles.Count To 1 Step -1
If ActiveWorkbook.Styles(n).Name = "Normal" Then
Else
ActiveWorkbook.Styles(n).Delete
End If
Next
End Sub
반응형
'Etc. > Excel VBA' 카테고리의 다른 글
| 엑셀 탭 이름 리스트로 만들기 (0) | 2023.01.17 |
|---|---|
| Excel파일 PDF 변환 (0) | 2023.01.17 |
| 하이퍼링크로 지정된 경로의 파일 다운로드 (0) | 2023.01.17 |
| Delete HyperLinks (0) | 2013.11.26 |
| Excel VBA : Delete Name (불필요한 이름 삭제) (0) | 2013.11.25 |
