Do while empty colomn

A

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
 
D

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
 
B

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)
 
Top