Rune, you don't have to go to the sheets to copy and paste, try something
like this

Sub test()
'copys sheet1 range A1:A200 to sheet2 range B1:B200
Sheet2.Range("B1:B200").Value = Sheet1.Range("A1:A200").Value

'if you want to go to sheet 3
Sheets("Sheet3").Select
End Sub


--
Paul B
Always backup your data before trying something new
Using Excel 2000 & 97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
"Rune_Daub" wrote in message
...

I have 3 worksheets.
From worksheet 1, I copy some information.
I paste the data in worksheet 2.
and do some calculations in worksheet 3.

This is just the basics of the worksheet. Its alot more comprehensive
than this, so I dont want to put the whole lot of code into worksheet
1. I need to split it up into the 3 worksheets.

How do I delay the jumping from worksheet 2 to 3 for about 1 second.

I have the copy in WS 1. There is also the Paste in WS2 in here.
I have a activate function in WS2 that sends me to WS3.

My problem is that it doesnt have the time to paste the results of the
WS1 paste into WS2 before it goes onto WS3.

So I need the jump from WS2 to WS3 to be delayed for 1 second. How??


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/