One way

Sub rununtil()
i = 1
Do Until Application.CountA(Columns(i)) = 0
MsgBox Cells(1, i)
i = i + 1
Loop
End Sub
--
Don Guillett
SalesAid Software

"axg275 " wrote in message
...
Guys

Is there a way to to run a macro until it encounters a colomn with no
information in any cell?

Thanks for help


---
Message posted from http://www.ExcelForum.com/