If the cell in row 1 will indicate an empty column
set rng = Cells(1,256).End(xltoLeft)(1,2)
--
Regards,
Tom Ogilvy
"FutureWiz" wrote in message
...
Any one help me here? I am trying to create a macro/VB that will allow me
to search for an empty column to start entering my data into and then move
down the column to enter consecutive data values.