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
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter