Another way is to just assign the values:
With activesheet 'I like qualifying my ranges!
with .Range(.Cells(500 - SizeX, 3), .Cells(500, 3))
.Cells(3,2).resize(.rows.count,.columns.count).value = .value
end with
end with
Fan924 wrote:
>
> Can this formula be modified to copy the value only?
> Range(Cells(500 - SizeX, 3), Cells(500, 3)).Copy Destination:=Cells(3,
> 2)
>
> I am attempting go avoid using this code...
> Selection.Copy
> Range("B3").Select
> ActiveSheet.Paste
> Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
> SkipBlanks:= _
> False, Transpose:=False
>
> Thanks
--
Dave Peterson
|