excel - Excel の VBA コード

Question

エラーがあると記載されていますが、私はこのコードを持っています。私がやりたいことは、現在アクティブなシートから完全な csv ファイルのエクスポートを行い、現在 cell にある情報で保存することA2です。

Sub exportCSV()
     ' export Macro

    Range("A:F").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    strName = AprilPayslips.Range("A2")
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & strName
    , FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = False
    Application.DisplayAlerts = True
End Sub