this code assumes that the empty cells are not formulas returning empty
strings...

dim rng as range

set rng = range("a4")
if isempty(rng) then set rng = rng.end(xltoright)
rng.select



--
HTH...

Jim Thomlinson


"ogopogo5" wrote:

Is there a way to wtite a VB that will look for a column that is used
/ filled? I.E. Colums A4, B4, C4 and D4 are empty. It will skips the
empty columns until it finds and selects an used / filled column, in
this case column E4.

Ogopogo5

*** Sent via Developersdex http://www.developersdex.com ***