Ошибка автоматизации - исключение произошло в надстройке

Question

В нашей компании есть макрос-надстройка, которую я не могу запустить на одном компьютере (на других компьютерах он работает правильно) с Произошла ошибка автоматизации. Подскажите, пожалуйста, где ошибка?

Sub importFromActiveSheet()
    If ActiveSheet Is currDoc Then
        MsgBox "You cannot import data from current document" & vbNewLine & vbNewLine & "Please select other file", vbCritical, "Wrong source data file"
        Exit Sub
    End If 
    ....

Property Get currDoc() As Worksheet         'returns current document worksheet in tool
    Set currDoc = ThisWorkbook.Sheets(1)
End Property

Ошибка появится в предложении:

    Set currDoc = ThisWorkbook.Sheets(1)

После этого Excel упадет.

Можете ли вы помочь мне, пожалуйста?