esempio:
Set zona = ActiveSheet.UsedRange setto zona tutte le celle usate nel foglio di lavoro attivo
Dim CL As Obcect
For Each CL In zona uso il ciclo for/next per esguire un comando in tutte le celle di zona
x = CL.Row assegno alla variabile x il numero della riga della cella CL
esempio:
Cells(ActiveCell.Row, 1).Select seleziono la cella con la stessa riga ma nella prima colonna