PasteSpecial Values

[Patch]

Hi!

I have this code provided by Tom Ogilvy (thanks Tom!)but I
need to have it modified to PasteSpecial Values as some of
the cells that are copied have values returned by formulas.
I tried doing it but my VBA skills are basically limited
to using the macro recorder.

Sub Tester9()
Dim rng As Range, rng1 As Range
Dim cell As Range, i As Long
Set rng1 = Worksheets("Summary") _
.Cells(Rows.Count, 1).End(xlUp)(2)
Set rng = Range("A10,A11,E22,F22,G22,H22,K60,L60,M60")

i = 0
For Each cell In rng
cell.Copy Destination:=rng1.Offset(0, i)
i = i + 1
Next
MsgBox "Pasted at " & rng1.Address
End Sub

Thanks for your help.

 

[Don Guillett]

instead of
cell.Copy Destination:=rng1.Offset(0, i)
try
rng1.Offset(0, i).value=cell

 

[Patch]

Thanks Don! That works.

-----Original Message-----
instead of
cell.Copy Destination:=rng1.Offset(0, i)
try
rng1.Offset(0, i).value=cell

--
Don Guillett
SalesAid Software
(e-mail address removed)



.

 

[Don Guillett]

glad to help