두번째 : 메크로 이름은 Styles_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              

              - 이름이 중복된다고 나올때(새메크로작성)는 다음 소스를 넣으면된다.
                 Dim Nam As Name
                 On Error Resume Next
                 For Each Nam In Names
                 Nam.Delete
                 Next Nam

    네번째 : 메크로 실행 
              (메크로를 실행하면 불필요한 스타일은 모두 삭제 된다.)
              2003 버전 : 도구 > 메크로 > 메크로 > Styles_Delete 선택 > 실행
              2007 버전 : 보기 > 메크로 글자 위의 이미지 클릭 > Styles_Delete 선택 > 실행           

   다섯째 : html 형식으로 저장하기.
              메크로를 실행한 파일을 다른이름 저장하기를 선택후 
              파일형식을 웹페이지(*.htm, *.html)을 선택하여 저장한다.

    여섯째 : 엑셀 빈문서를 열어 html 형식으로 저장한 파일을 불러온다.
    일곱째 : 엑셀문서로 다시 저장한다. 
                엑셀빈문서에 html 형식을 불러 왔으니 엑셀 문서로 다시 저장해야만 파일을 열었을때 
                엑셀로 뜨는것은 당연하다. 
                파일형식을 Excel 통합문서 선택후 저장. 
                이제 파일을 열면 이상없이 열린다.

정리 
  - 엑셀파일을연다.
  - 스타일 삭제 메크로 실행(불필요한 스타일 삭제)
  - 다른이름으로 저장하기(html)
  - 엑셀(빈문서)실행 후 앞에서 저장한 html 파일을 불러온다.
  - 불러온 파일 다른이름으로 저장(xls 또는 xlsx)
  - 제대로 변환되었는지 확인