codice:
Private Sub cmdcerca_Click()
x$ = InputBox("Inserisci la chiave di ricerca")
If Not x$ = "" Then
    valore = x$
    For k = 1 To griglia1.Rows - 1
        valore2 = griglia1.TextMatrix(k, 0)
            If valore = valore2 Then
                griglia1.Row = k
            For s = 0 To griglia1.Cols - 1
                griglia1.Col = s
                griglia1.CellBackColor = RGB(99, 0, 0)
            Next s
            Else
            End If
    Next k
Else
MsgBox "hai annullato"
End If
End Sub
spero che il codice sia chiaro. in esso faccio riferimento al pulsnate cmdcerca e ella griglia1

tinei presente che epr correttezza sarebbe meglio inserire tutto in un modulo .

p.s ricordatevi di salvare tutti gli esperimenti su unb supporto se no poi faticate a ritrovarli!

edit:

dimenticavo di dirti che il codice non è completo
infatti se effettui un'ulteriore ricerca verrà selezionata una riga in aggiunta alle precedenti. devi ripulire la griglia