>>813
Sub save_sheet_as_csv()
  Dim this As Worksheet: Set this = ActiveSheet
  Dim sheet_name As String: sheet_name = this.Name 'ワークシート名取得
  Dim save_folder As String: save_folder = "c:\tmp\" '保存先フォルダ指定
  Dim save_fullpath As String: save_fullpath = save_folder & sheet_name & ".csv"

  this.SaveAs Filename:=save_fullpath, FileFormat:=xlCSV 'CSVで保存
End Sub