Worked Great - Thanks


On Apr 19, 1:40 pm, "Ron de Bruin" wrote:
Try this

With Range(Me.Cells(R, 6), Me.Cells(R, 42))
Worksheets("Sample Log").Cells(samplerow, 9).Resize(.Rows.Count, _
.Columns.Count).Value = .Value
End With

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm



"gtslabs" wrote in oglegroups.com...
That helped somewhat but I still could not get it to work.

I have this working but it pastes the formats.
How can I use this and only paste the values?

Range(Me.Cells(R, 6), Me.Cells(R, 42)).Copy Worksheets("Sample
Log").Cells(samplerow, 9)- Hide quoted text -

- Show quoted text -