VBAで特定のExcelシートを出力し保存する

shuzo-kino.hateblo.jp
の続き的内容。
今度は特定のシートをCSVとしてダウンロードする方法について。

実際のところ

Sheet1にボタン、Sheet2に内容がある状態で

Private Sub CommandButton1_Click()

Dim mypath As String
Dim fileName As String
Dim sheetName As String

mypath = ThisWorkbook.Path
fileName = mypath & "\csv.csv"
sheetName = "Sheet2"

Sheets(sheetName).Copy
ActiveWorkbook.SaveAs fileName, FileFormat:=xlCSV
ActiveWorkbook.Close

MsgBox "saved."

End Sub