Jacko

How about

Sub CopyValToSheet2()
Worksheets("Sheet1").Range("A1:A50").Copy
Worksheets("Sheet2").Range("A1:A50").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub


--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"Jacko" wrote in
message ...

Hi,

In sheet 1 i have sum calculations, and the result are in list A1 till
A50

Now after every new calculation they change and i want them to bring
over to sheet 2 in (a1 till a50) and from there i can make a other list
with the resuts..

But i don't find a simple trick to do it ...(excel 2000)
Greetz..


--
Jacko
------------------------------------------------------------------------
Jacko's Profile:
http://www.excelforum.com/member.php...o&userid=28762
View this thread: http://www.excelforum.com/showthread...hreadid=484633