VB程序运行后报错400,求大佬帮忙看看！

494892109

EXCEL运行后报错400，请大佬帮忙解决一下，已下是详细代码：
   Sub CopyColumnA()
    Dim FilePath As String
    Dim WB As Workbook
    Dim WS As Worksheet

    '选择需要打开的表格
    FilePath = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "Select Excel File", , False)
    If FilePath = "False" Then Exit Sub

    '打开表格，并复制B列,C列
    Set WB = Workbooks.Open(FilePath)
    Set WS = WB.ActiveSheet
    WS.Range("B:C").Copy

    '关闭当前表格
    WB.Close SaveChanges:=False

    '选中AA46单元格，准备粘贴
    Range("AA46").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。