count colomns

Hi, Id like to know how to count in row "A1" how many cells contain
data. Eg a1,b1,c1,d1 etc.
Blanks shoudnt be a problem as Im entering data in each col, so a blank
cell would me the end of data entry anyway.
Regards Robert

for i = 1 to 10
cnt = application.CountA(columns(i))
msgbox "Col: " & i & " cnt: " & cnt
Next

--
Regards,
Tom Ogilvy


"RobcPettit" wrote:

> Hi, Id like to know how to count in row "A1" how many cells contain
> data. Eg a1,b1,c1,d1 etc.
> Blanks shoudnt be a problem as Im entering data in each col, so a blank
> cell would me the end of data entry anyway.
> Regards Robert
>
>

Thanks For your reply. Thats perfect.
Regards Robert
Tom Ogilvy wrote:
> for i = 1 to 10
> cnt = application.CountA(columns(i))
> msgbox "Col: " & i & " cnt: " & cnt
> Next
>
> --
> Regards,
> Tom Ogilvy
>
>
> "RobcPettit" wrote:
>
> > Hi, Id like to know how to count in row "A1" how many cells contain
> > data. Eg a1,b1,c1,d1 etc.
> > Blanks shoudnt be a problem as Im entering data in each col, so a blank
> > cell would me the end of data entry anyway.
> > Regards Robert
> >
> >