Find

Sub sample()
Dim foundcell, i As Long, straddress As String
Set foundcell = Cells.find(“vba”)
If foundcell Is Nothing Then
MsgBox “荀