ei amdahlnperh
é so você botar:
Rows(linhas).Interior.ColorIndex = 2
depois de :
MsgBox "O Paciente [ " & sbx & " ] localizado(a)", vbInformation, "SISTEMA BUSCA DE PACIENTE"
e assim q você der "ok" na MsgBox, a linha volta a ficar branca novamente..