從使用中儲存格後開始尋找含有

Sub Click()
    
moji = "大佑"

'MsgBox "從使用中儲存格後開始尋找含有" & moji & "文字的儲存格"

Set iti = Cells.Find(What:=moji, After:=ActiveCell)
    
If iti Is Nothing Then
MsgBox "找不到您想要找的資料"
Exit Sub
Else
iti.Activate
End If
    
End Sub