Export Range to File...

Option Explicit

Sub ExportRangetoFile()

  Dim TitleId As String
  Dim WorkRng As Range
  Dim xFile As Variant
  Dim xFileString As String

  On Error Resume Next
  
 '화면 업데이트(일시) 정지
  Application.ScreenUpdating = False
 
  TitleId = "Export Range to File...."
  Set WorkRng = Application.Selection
  Set WorkRng = Application.InputBox("Seltion Range", TitleId, WorkRng.Address, Type:=8)

 '현재시트를 새워크북에 복사
  Application.ActiveSheet.Copy
  
 '복사된 시트의 셀을 삭제
  Application.ActiveSheet.Cells.Clear
  
 '복사된 시트에 시트가 복사되기 전 선택영역만 붙여넣기
  WorkRng.Copy Application.ActiveSheet.Range("A1")
  
 '개체 생성
  Set xFile = CreateObject("Scripting.FileSystemObject")
  
 '표준 다른 이름으로 저장 대화 상자를 표시하고
 '사용자가 선택한 파일 이름을 가져옵니다.
 '실제로 파일을 저장하지는 않습니다.
  xFileString = Application.GetSaveAsFilename("", filefilter:="Comma Separated Text (*.CSV), *.CSV")
  
 '다른 파일에 있는 통합 문서에 변경 내용을 저장
  Application.ActiveWorkbook.SaveAs Filename:=xFileString, FileFormat:=xlCSV, CreateBackup:=False
  
 '화면 경고창 비활성화
  Application.DisplayAlerts = False
 
 '저장된 파일 닫기
  ActiveWorkbook.Close
  
 '화면 업데이트
  Application.ScreenUpdating = False
  
 '화면 경고창 복원
  Application.DisplayAlerts = True

End Sub