>>816
ありがとうございます、うまくできませんでした…。
ネットで拾ったものですが、これがやりたいことに近いかなと思うんですが、保存先の指定はどうすればいいでしょうか。

Application.DisplayAlerts = False 'Excelの警告を一時無視

ActiveSheet.Copy '新しいブックへコピー

ActiveWorkbook.SaveAs Filename:="book1.csv", FileFormat:=xlCSV, Local:=True 'CSVで保存。ファイル名は「book1.csv」。

Workbooks("book1.csv").Close 'book1.csvを閉じる

Application.DisplayAlerts = True