Пытаюсь использовать.Найти в VBA, получить сообщение о том, что объект поддерживает свойство или метод

Question

Вот функция проблемы.Я написал много функций, похожих на это без проблем, и я не знаю, в чем проблема на этот раз.

Sub FindEquipCost()
    Dim equipment As Range
    Set equipment = Sheets("Sheet1").Find("EQUIPMENT", 
     LookIn:=xlValues, MatchCase:=True)
    MsgBox (equipment)
End Sub

Answer 1

Как упоминалось в комментариях, Find() - это метод объекта Range, а не объекта Worksheets.

Это способ запустить ваш код без ошибок:

Sub FindEquipCost()

    Dim equipment As Range
    Set equipment = Sheets("Sheet1").Cells.Find("EQUIPMENT", _
                                LookIn:=xlValues, MatchCase:=True)

    If Not equipment Is Nothing Then
        MsgBox equipment.Address
    Else
        MsgBox "MISSING"
    End If

End Sub

См. .Cells между Sheets() и .Find.