Do while empty colomn

[axg275]

Guys

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

Thanks for hel

 

[Don Guillett]

One way

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

 

[Bob Phillips]

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)