"Object doesn't support this property or method"

[Ashutosh2809]

My Code is this. I want to check each of 32 Cells in Sheet2 one by one and start copying in sheet3 if they have any value.

Please help

Dim X As Integer
Dim Y As Integer


Y = 0
X = 32


Do While X > 1
    If ActiveWorkbook.Sheets("Sheet2").Cell(3, X).Value <> "" Then
       ActiveWorkbook.Sheets("Sheet3").Range(1, X).Value = ActiveWorkbook.Sheets("Sheet2").Range(1, X).Value
   Y = Y + 1
End If
   
If Y = 6 Then
Exit Do
End If


X = X - 1


Loop

 

[Fluff]

Try stepping through the code using F8, to see what happens.

 

[Ashutosh2809]

I tried stepping through the code. It enters the loop and runs for 32 times and exists. But in excel there is no output.

 

[RoryA]

Does it ever process this line:

ActiveWorkbook.Sheets("Sheet3").Cells(1, X).Value = ActiveWorkbook.Sheets("Sheet2").Cells(1, X).Value