copy method failed:application-defined or object-defined error'

im trying to use this simple code t o copy a particular range from particular sheet to another sheet and specified range.but im encountering the following "application-defined or object-defined error":



For i = 1 To 3

Worksheets("sheet1").Range(Cells(i, 1), Cells(i, 30)).Copy Destination:=(Worksheets("sheet2").Cells(i, 1))
Next

the above code runs from combobox event which is placed in sheet2 i.e, the destination sheet

Im using office 2002

can any body help me out

Hello Syam1919,

You need to select the range before you copy it.

You have:
Worksheets("sheet1").Range(Cells(i, 1), Cells(i, 30)).Copy Destination:=(Worksheets("sheet2").Cells(i, 1))


Change to:
Worksheets("Sheet1").Range(Cells(i, 1), Cells(i, 30)).Select
Selection.Copy Destination:=Worksheets("Sheet2").Range(Cells(i, 1).Address)

This will fix it,
Leith Ross