多个工作簿时程序运行错误原因

NICO44

一个程序运行了好多次都没问题，但是最近发现在打开多个excel工作簿时，再运行这个程序很容易错误中断。关掉其他工作簿就没事。
请问是什么原因导致呢？大家有这种情况吗？有什么可以避免这种错误吗，或者可以在程序中添加什么语句？谢谢

maditate

这是什么原因的？没有代码，没有附件，什么原因也搞不清。

NICO44

maditate 发表于 2019-6-18 14:32
这是什么原因的？没有代码，没有附件，什么原因也搞不清。

这是一个按钮代码，用于添加新表后对其进行清除筛选和取消隐藏行，然后在K列显示C列订车人信息，不显示电话。

正常运行后的结果应为图一：

[url=][/url]

偶尔或在打开其他无关工作簿的情况下，会导致运行失误的结果为图二：

[url=][/url]

Private Sub CommandButton21_Click()
Sheets("CC").Select
    Sheets("CC").Cells.Select
    Selection.EntireRow.Hidden = False
    Selection.AutoFilter
    Sheets("CC").Range("A3:J3").Select
    Selection.AutoFilter
    Sheets("CC").Range("K4").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Sheets("CC").Range("K5").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[-8]"
    Sheets("CC").Range("K4:K5").Select
    Selection.AutoFill Destination:=Sheets("CC").Range("K4:K650")
    Sheets("CC").Range("K4:K650").Select
   
    Sheets("CC").Range("A3:K3").Select
    Selection.AutoFilter
    Selection.AutoFilter
   
End Sub