Prova così:

codice:
Cells(Riga, 1).Select