VBA错误 - 对象不支持此属性或方法

Question

我有一个在我的电脑和其他几个人身上运行良好的宏。但是对于其他一些用户，会收到一条错误消息：

  

“对象不支持此属性或方法”。

Option Explicit 

Sub Create_NewSheet_TopasteData() 
Dim test As Worksheet 
Sheets("Security Distribution").Copy After:=Sheets(Sheets.Count) 
Set test = ActiveSheet 
test.Name = Range("F2")     
End Sub

Answer 1

只需替换

test.Name = test.Range("F2")

带

test.Name = test.Range("F2").Value

（使用Excel 2007测试）

Answer 2

您的代码可能会在行test.name = Range("F2")上抛出错误。单元格F2中是否有任何数据？请注意，由于Range("F2")不合格，因此它会从活动工作表中获取信息。因此，请确保活动工作表具有适当的工作表名称。