여러개의 워크시트를 하나 하나 저장해서 새로운 화일로 만들일이 있었는데, 정말 유용하게 사용한 프로시저입니다.
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
참고 : 네이버지식인