从vba中的下拉列表中查找数据的原始地址

Dim selectedValue As String
selectedValue = ThisWorkbook.Sheets("Sheet1").Range("DropDownList").Value

Dim searchRange As Range
Dim foundCell As Range

Set searchRange = ThisWorkbook.Sheets("Sheet1").Range("A:A")
Set foundCell = searchRange.Find(What:=selectedValue, LookIn:=xlValues, LookAt:=xlWhole)

If Not foundCell Is Nothing Then
    MsgBox "找到的地址是：" & foundCell.Address
Else
    MsgBox "未找到匹配的数据。"
End If