Sub FindExample() Dim searchRange As Range Dim foundCell As Range ' Set the range to search in (e.g., column A) Set searchRange = Range("A1:A10") ' Find the value "SearchValue" within the search range Set foundCell = searchRange.Find("SearchValue") ' Check if the value was found If Not foundCell Is Nothing Then ' Value was found MsgBox "Value found at cell " & foundCell.Address Else ' Value was not found MsgBox "Value not found" End If End Sub