특정 워크시트를 파일로 저장하기

특정워크 시트를 별도의 파일로 저장하는 VBA 코드입니다.

Sub Sheet_SaveFile()
    Dim sht As Worksheet    '// 각 시트를 넣을 변수
    Dim FileName As String  '// 파일경로+날짜+이름 변수

    Application.ScreenUpdating = False  '// 화면 업데이트 정지
    Set sht = Worksheets("시트명")
    With ActiveSheet
            FileName = ThisWorkbook.Path & "\" & Date & " " & sht.Name & ".xlsx"
            sht.Copy    '// 시트 복사
            With ActiveWorkbook
                 .SaveAs FileName:=FileName '// 새로운 이름으로 저장
                 .Close '// 저장한 파일 닫음
            End With
    End With
    MsgBox "파일 저장완료"
End Sub