Ive specified Range incorrectly...

[Andy D 2002]

hi this is not working

any ideas as to why?

cheers

Andy


Sheets("report2").Range(Cells(j, 3), Cells(j, 8)) = Sheets("All_Clients1").Range(Cells(i, 6), Cells(i, 11))

 

[Joe4]

I don't think you can set a range of multiple cells like that without copying or using a loop.

Here is a loop solution:

    Dim x As Integer
    For x = 3 To 8
        Sheets("report2").Cells(j, x) = Sheets("All_Clients1").Cells(i, x + 3)
    Next x