VBA判断特定的文件是否打开

判定某个文件是否打开，如果打开了则激活该文件
Dim w as Object

For Each w In Workbooks
i = InStr(w.Name, "测试")
If i > 0 Then
w.Active
Exit For
End If
Next w
If i = 0 Then
MsgBox "文件未打开", vbCritical + vbOKOnly
End If
我这样写完以后，在w.Active中说对象不支持此方法是什么意思啊？

相关了解……