【VBA】シートをCSVで所定フォルダに保存する

Sub CSVで保存()

'変数宣言
Dim 保存先 As String

'保存先設定
保存先 = ThisWorkbook.Path & "\ナレッジ用CSV.csv"

'シートコピー
Sheets("Sheet2").Copy

'CSV出力
ActiveWorkbook.SaveAs 保存先, FileFormat:=xlCSV
ActiveWorkbook.Close

End Sub