【VBA】CSVファイルをエラー処理付きで別ブックとして保存する方法

Option Explicit
Sub CSVToWorkbook()
    Dim ws As Worksheet
    Dim csvFilePath As String
    Dim wbCSV As Workbook
    Dim wbNew As Workbook
    
    ' ユーザーからCSVファイルのパスを取得
    csvFilePath = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv), *.csv", Title:="CSVファイルを選択")
    If csvFilePath = "" Then Exit Sub
    
    On Error GoTo ErrorHandler
    ' CSVファイルを開く
    Set wbCSV = Workbooks.Open(csvFilePath)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 新しいワークブックを作成
    Set wbNew = Workbooks.Add
    
    ' CSVのデータを新しいワークブックにコピー
    For Each ws In wbCSV.Sheets
        ws.Copy After:=wbNew.Sheets(wbNew.Sheets.Count)
    Next ws
    
    ' 既存のワークブックを閉じる
    wbCSV.Close SaveChanges:=False
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "完了しました。", vbInformation
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbExclamation
    If Not wbCSV Is Nothing Then wbCSV.Close SaveChanges:=False
End Sub