REPEAT xlSheet.Range('A' + FORMAT(i)).Value := ... xlSheet.Range('B' + FORMAT(i)).Value := ... ... i += 1; UNTIL ...