Ottieni valori di cella in due colonne a due variables usando la macro

Ho due colonne "G" e "H" nello stesso foglio. Voglio che i valori delle celle su quelle due colonne siano assegnati in due variables. Ho scritto una macro come segue

For i = 1 To 40 rtext1 = Cells(i, "G").Value text1 = Cells(i, "H").Value Next i 

Ma non ho il valore corretto della cella alla variabile rilevante. Qual è il modo migliore per farlo?

Ho provato il tuo codice. Funziona bene. Penso che quando si esegue il codice, ActiveSheet non è il tuo foglio desiderato. Quindi, non hai il giusto valore. Prova questo:

 For i= 1 To 40 Step 1 rtext1 = Sheets("sheetname").Cells(i, "G").Value text1 = Sheets("sheetname").Cells(i, "H").Value Next i