Hi Everybody,

Why the following statement can't run successfully,
----------
With ActiveSheet

.Range("A1").Copy Destination:=.Range("A4").PasteSpecial
paste:=xlPasteValues

End With
----------

I need to use the them together, Destination -- can let stay at a sheet,
PasteSpecial -- can only copy the value, not the color or border.

Any suggestion?

Hi
use two separate calls.
..range(...).copy
..range(...).special ...

"myBasic" wrote:

Hi Everybody,

Why the following statement can't run successfully,
----------
With ActiveSheet

.Range("A1").Copy Destination:=.Range("A4").PasteSpecial
paste:=xlPasteValues

End With
----------

I need to use the them together, Destination -- can let stay at a sheet,
PasteSpecial -- can only copy the value, not the color or border.

Any suggestion?

Thanks for reply:

The real case:

With ActiveSheet 'in Book1.xls
.Cells(k, 5).Copy
Workbooks("master.xls").Worksheets(subjectSheet(i) ).Cells(k + 100,
1).PasteSpecial paste:=xlPasteValues
End With

It doesn't work, think that there are two different workbooks.

Regards.


"Frank Kabel" wrote:

Hi
use two separate calls.
.range(...).copy
.range(...).special ...

"myBasic" wrote:

Hi Everybody,

Why the following statement can't run successfully,
----------
With ActiveSheet

.Range("A1").Copy Destination:=.Range("A4").PasteSpecial
paste:=xlPasteValues

End With
----------

I need to use the them together, Destination -- can let stay at a sheet,
PasteSpecial -- can only copy the value, not the color or border.

Any suggestion?