VB6 - Run-time Error 1004

[okeyuzosike]

Hi everyone,
I have a spreadsheet with information in some of the colums: ("A:Y").
I want to move(relocate the content of column "A" to any column that does not have data(values).
In other words, I want to cut the content of Column "A", loop through the rest of the columns to find a column that has not no data, then past the content of Columns A in tha location.
I am using the code below and I am getting Runtime error 1004 on the second line:

For i = 1 To 256
If Application.CountA(Range(Cells(1, i), Cells(65536, i))) = 0 Then
Columns(2).Cut Destination:=Columns(i)
Exit For
End If
Next i

how can I fix this?
Thanks.
Okey.

 

[PHV]

Why are you talking about VB6 in the title ?
If you automate excel then you have to use full qualified excel objects:
If yourXLapp.CountA(yourXLapp.Range(yourXLappCells(1, i), yourXLapp.Cells(65536, i))) = 0 Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[PHV]

Sorry for the typo:
If yourXLapp.CountA(yourXLapp.Range(yourXLapp.Cells(1, i), yourXLapp.Cells(65536, i))) = 0 Then

 

[okeyuzosike]

Thanks PHV. I am trying to specify VB6 so that people know what program I am coding in.
Thanks for your input I very much appreciate your swift response.
O.