Is this any help...?

LastRow = Range("C5").End(xlDown).Row

For i = 5 To LastRow

ColumnNr = Range("C" & i).Value
ColumnLn = Range("D" & i).Value

Next

--
Kaa
-----------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...nfo&userid=751
View this thread: http://www.excelforum.com/showthread.php?threadid=39121