I found the problem.
Copy method writes to protect cells.
It works when I remove the protect cells.

Thanks for helping,



"William Benson" wrote:

Where have you defined (DIM'd) wsDestination?
Also,
eRow = wsSource.Cells(Rows.Count, 2).End(xlUp).Row
will implicitly assume that Rows.Count is referring to the ActiveSheet ...
is that what you want?

So, it might be mattering which sheet you are on when you run the macro


"Souris" wrote in message
...
I have following VBA code:

Dim wsSource As Worksheet, wsTarget As Worksheet
Dim rFrom As Range, rTo As Range
Dim eRow As Long

Set wsSource = Sheets("GRADE")
Set wsTarget = Sheets(wsDestination)
wsTarget.Range("G12:Z200").ClearFormats
eRow = wsSource.Cells(Rows.Count, 2).End(xlUp).Row
Set rFrom = wsSource.Range("B12:F" & eRow)
Set rTo = wsTarget.Range("B12")

rFrom.Copy Destination:=rTo

The code works, but I got following fail message sometimes.

Run-time error '-2147417848 (80010108)'

Method 'Copy' of objecgt 'Range' failed


The excel crashed if I got this fail.

It seems that my range does not have data to copy from, but I check my
spreadsheet. There are data on it.

What I should check for above case?
What may go wrong?


Any information is great appreciated,