VBA Excel - Encontra a palavra e destaca a Linha - Highlighting a row

Al

Sub SearchWord()

Let nWord = InputBox("Digite a palavra", _

".: A&A",  "Palavra:")

If nWord = cancel Then ' Cancel

    Exit Sub

End 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

Reference:

Tags: VBA, Excel, highlighting, search, row