Error with Activecell.paste

[Rich]

I am using Excel 97.

I had a macro that has been working for the longest time. I have not
changed anything. This is the problem.

The code copy several rows of data from one spreadsheet. Then goes to
a new spreadsheet. Then click on a single cell in the new sheet. The
macro issues the command :

ActiveSheet.paste

The macro crashes.

I have tried to pick a range that is the same size as the area that I
am trying to paste. That did not work. I tried picking a single cell.
That did not work.

What can I do to fix this ???

 

[Norman Jones]

Hi Rich,

The following copies a range (A120) from Sheet1 to a range anchored on A1
in Sheet2:

Sub Tester02()
Dim RngSrc As Range
Dim Rngdest As Range

With ActiveWorkbook
Set RngSrc = .Sheets("Sheet1").Range("A120")
Set Rngdest = .Sheets("Sheet2").Range("A1")
End With

RngSrc.Copy Rngdest

End Sub