just change it to:

Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column + 1).Select

Regards,
KL


"Jim May" wrote in message
news:5q7Ee.81568$Fv.50826@lakeread01...
What if OP was in need of finding next empty column
in Row 5 where A5:G5 had values? OP needs cell H5.
tks,

"Bob Phillips" wrote in message
...
Range("A" & Cells(Rows.Count,"A").End(xlUp).Row+1)

gives that next free cell

--
HTH

Bob Phillips

"Technoman" wrote in message
...
I am in need of the macro that enables a user to go to the next
available
cell in a particular row. I have seen the post on this site before but
cannot find it now i need it.