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