Sub SearchWord()
Let nWord = InputBox("Digite a palavra", _".: A&A", "Palavra:")
If nWord = cancel Then ' CancelExit SubEnd If
Cells.Find(_What:=nWord, _After:=ActiveCell, _LookIn:=xlFormulas, _LookAt:=xlPart, _SearchOrder:=xlByRows, _SearchDirection:=xlNext, _MatchCase:=False, _SearchFormat:=False_).Select
MsgBox "A Palavra (" & nWord & ") foi localizada", _vbInformation, _".: A&A"
End Sub
Nenhum comentário:
Postar um comentário