Ciao,
in un foglio di lavoro, celle W3:W13, vi sono indicati dei codici che devo cercare, e trovare, in col.B; seleziono via via con Ctrl+Selez.sin.mouse quelle celle contenenti i dati cercati. Poi faccio eseguire la macro sequente a quella selezione multipla.

Sub seleziona10()
Set area = Range("B18", Range("B18").End(xlDown))
Set selez = Selection
For Each cl In selez
For Each Itm In area
If Itm.Value = cl.Value Then
riga = Itm.Row
Soglia = riga - 10
If riga - 10 < 2 Then
Soglia = 2
End If
For n = riga To Soglia Step -1
Cells(n, 2).Offset(0, 1).Resize(1, 5).Interior.ColorIndex = 6
Next
Exit For
End If
Next
Next
Set area = Nothing
Set selez = Nothing
End Sub

E' possibile fare eseguire tale lavoro a una macro? (attualmente l'operazione è TUTTA in manuale, e oltre alla barba lunga e bianca sono possibili errori umani...)
In pratica la macro dovrebbe:
-leggere nel Range W3:W13 i codici
-cercarli in col.B e selezionare le relative celle
-eseguire a tali selezioni la Sub seleziona10

Grazie assai, anche per la comprensione :-))
Buona giornata
eZio

salve
basta che cambi questa riga
Set selez = Selection

come segue:
Set Selez = Range("W3:W13")

saluti
Giap

---