Dim col As Range
Dim cCount
Dim i As Long

Do
i = i + 1
cCount = WorksheetFunction.CountA(Columns(i))
If cCount 0 Then
'do your stuff
End If
Loop Until cCount = 0

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"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/