升級VBA 6-> 7的原因錯誤：如果集合

Question

已存在

VBA6代碼（EXCEL）偉大的工作。升級到Office 2010/VBA7，代碼中斷。

使用代碼從SO：

Determining whether an object is a member of a collection in VBA

Public Function Contains(col As Collection, key As Variant) As Boolean 
Dim obj As Variant 
On Error GoTo err 
    Contains = True 
    obj = col(key) 
    Exit Function 
err: 

    Contains = False 
End Function 

我得到運行時錯誤5：無效的過程調用或參數。

這對我來說沒有任何意義，但是因爲obj = col(key)行上出現錯誤，應該由On Error GoTo err語句覆蓋，但它會停止。

其他如果X存在於收集型解決方案有同樣的問題。

而不是修復破損的代碼，我真正需要的是能夠查看是否已經爲一個集合設置了一個記錄，如果可以在VBA7中做一些其他（新的）方式，那就可以解決問題（我可以夢想）。

Answer 1

我覺得，如果我改變指定的對象，例如，一個worsheet，它的工作原理：

Public Function Contains(col As Collection, key As Variant) As Boolean 
Dim ws As Excel.Worksheet 

On Error GoTo err 
Contains = True 
Set ws = col(key) 
Exit Function 
err: 
Contains = False 
End Function 

我這樣稱呼它：

Sub test() 
Dim ws As Excel.Worksheet 
Dim coll As Collection 

Set coll = New Collection 
For Each ws In ThisWorkbook.Worksheets 
coll.Add ws, ws.Name 
Next ws 
Debug.Print Contains(coll, ActiveSheet.Name) 
Debug.Print Contains(coll, "not a worksheet name") 
End Sub 

我得到真正的第一個呼叫，第二個假。