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).val ue = .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