excel vbaでFind関数からセルアドレスを取得する方法

Question

find関数を使用してセルアドレスを取得する方法に問題があります。ここで私は、コードをデバッグしようとすると、問題は、変数が「文字列」の代わりに、セルのアドレスが含まれている「発見」、あるコード

Dim Found As Range 

Set Found = Worksheets("Sheet 1").Cells.Find(What:="test", LookAt:=xlWhole, MatchCase:=True) 

    If Not Found Is Nothing Then 
      ' do something 
    End If 

です。

私のコードに何が問題なのか？

Answer 1

found.addressは文字列として表示されても使用できるようです。以下のコードは私のために働いた。

Sub findCellAddress() 

    Dim ra As Range 

    Set ra = Cells.Find(What:="fff", LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False) 

    If ra Is Nothing Then 
     MsgBox ("Not found") 
     Else 
     MsgBox (ra.Address) 
    End If 

End Sub