Nei Comino

Bom dia. Veja aí se funciona. Aqui funcionou de boa!! Sub Localiza_palavra_desejada() On Error Resume Next Call Descolorindo sbx = InputBox("Insira no Campo Abaixo o Nome Paciente", "SISTEMA BUSCA DE PACIENTE", "Digite Nome Paciente") If sbx = cancel Then 'caso cancele a busca Exit Sub End If Cells.Find(What:=sbx, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Select linhas = Selection.Row - 1 & ":" & Selection.Row Rows(linhas).Interior.ColorIndex = 5 If Val(Left(linhas, InStr(linhas, ":") - 1)) > 0 Then MsgBox "O Paciente [ " & sbx & " ] localizado(a)", vbInformation, "SISTEMA BUSCA DE PACIENTE" Else MsgBox "O Paciente [ " & sbx & " ] não foi localizado(a)", vbInformation, "SISTEMA BUSCA DE PACIENTE" End If End Sub Sub Descolorindo() On Error Resume Next Cells.Select With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("A1").Select End Sub