Copy cells to other cells

[聪聪 王]

when I run follow this code :

Sub copyCell()
   Worksheets("Sheet1").Range("A11").Copy Destination:=Worksheets("Sheet2").Range("E5")
End Sub

then I run above code:

PS: Translation in English is ：

when run error '9':  index out of range

I don't know what wrong with the code above.

[#2 · Accepted solution]

To make this code run, you must have two sheets in the workbook, the first sheet must be called Sheet1, and destination sheet must be called Sheet2.

It depends on a specific sheet name.

You can pass the index of each sheet instead of the name as follows:

Sub copyCell()
   Worksheets(1).Range("A11").Copy Destination:=Worksheets(2).Range("E5")
End Sub

Regards

[#3]

You can set the breakpoint at the line where the error comes out. Then, you can add Watch to watch the expression state.

Reference link

1. Add watch
   https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/add-a-watch-expression

[#4]

Thank you for your reply, and I wish you a happy New Year！