VBA 実行時エラー 424 の表示が出る

質問

下記のVBAを作成していてエラーが出てしまいます
8行目でオブジェクトが必要ですと表示が出るのはなぜでしょうか？

やりたいこととしてはボタンを選択すると特定のシート[ADDR_TO]を
同一階層上に[ADDR_TO]のファイル名でCSVとして保存することです

----
Private Sub CommandButton2_Click()

Dim strNewBookName As String
strNewBookName = "ADDR_TO"

Workbooks.Add.SaveAs Filename:=ThisWorkbook.Path & "\" & strNewBookName, FileFormat:=xlCSV

SheetCSV.Cells.Copy
With Workbooks(strNewBookName & ".csv")
.Worksheets(strNewBookName).Range("A1").PasteSpecial Paste:=xlPasteAll
.Worksheets(strNewBookName).Range("A1").Select
.Save
.Close
End With

Call MsgBox("出力完了", vbInformation)

End Sub

回答No.2

watabe007 · ベストアンサー

>特定のシート[ADDR_TO]を同一階層上に[ADDR_TO]の
>ファイル名でCSVとして保存することです

SheetCSV.Cells.Copy
　　　　　↓
ThisWorkbook.Worksheets("ADDR_TO").Cells.Copy

もしくは
Private Sub CommandButton2_Click()
　　Dim strName As String

　　strName = "ADDR_TO"
　　ThisWorkbook.Worksheets(strName).Copy
　　With ActiveWorkbook
　　　　.SaveAs Filename:=ThisWorkbook.Path & "\" & strName, FileFormat:=xlCSV
　　　　.Close False
　　End With
　　MsgBox "出力完了", vbInformation
End Sub

お礼

ありがとうございます！
無事出力ができました！

回答No.1

play_with_you

＞SheetCSV.Cells.Copy
「SheetCSV」はどこにも定義されていないですからね。そりゃ「オブジェクトが必要です」と出るでしょう。