여러개의 워크시트를 워크시트의 이름으로 분할하여 저장하기

여러개의 워크시트를 하나 하나 저장해서 새로운 화일로 만들일이 있었는데, 정말 유용하게 사용한 프로시저입니다.

Sub 시트를파일로저장()
 Dim Sht As Worksheet
 Dim strPath As String
  Application.ScreenUpdating = False
    strPath = ThisWorkbook.Path & “\”
  For Each Sht In Worksheets
     Sht.Copy
      ChDir strPath
    ActiveWorkbook.SaveAs Filename:=strPath & Sht.Name & “.xls”
    ActiveWindow.Close
  Next Sht
   Application.ScreenUpdating = True
End Sub

참고 : 네이버지식인