>>626
Sub SearchText()
Dim searchText As String
Dim searchRange As Range
Dim searchResult As Range

' 検索値を取得
searchText = Range("B3").Value

' 検索範囲を指定
Set searchRange = Range("C:C")

' 検索して結果を取得
Set searchResult = searchRange.Find(what:=searchText, LookIn:=xlValues, lookat:=xlPart)

' 検索結果が見つかった場合、対応するA列の値を取得
If Not searchResult Is Nothing Then
MsgBox Range("A" & searchResult.Row).Value
End If
End Sub