From: john.h.williams@btinternet.com   
      
   I need to copy/paste in Excel, but with a delay built in between each   
   copy/paste operation.   
      
   Below is the code which gives me a compile error on the 2nd Sub Delay().   
   It is a simple copy from sheet 1 to sheets 2,3,4 and 5.  Can you see   
   anything wrong.  Help much appreciated.   
      
   Thanks   
      
   Sub Macro1()   
   '   
   ' Macro1 Macro   
   ' Macro recorded 10/12/2005   
   '   
   ' Keyboard Shortcut: Ctrl+m   
   '   
       Range("A1:A5").Select   
       Selection.Copy   
       Sheets("Sheet2").Select   
       ActiveSheet.Paste   
   End Sub   
   Sub Delay()   
   Dim Beg As Long   
      
   Beg = Timer   
   Do   
   Loop Until Timer - Beg >= 30   
       Sheets("Sheet1").Select   
       Application.CutCopyMode = False   
       Selection.Copy   
       Sheets("Sheet3").Select   
       ActiveSheet.Paste   
   End Sub   
   Sub Delay()   
   Dim Beg As Long   
      
   Beg = Timer   
   Do   
   Loop Until Timer - Beg >= 30   
       Sheets("Sheet1").Select   
       Application.CutCopyMode = False   
       Selection.Copy   
       Sheets("Sheet4").Select   
       ActiveSheet.Paste   
   End Sub   
   Sub Delay()   
   Dim Beg As Long   
      
   Beg = Timer   
   Do   
   Loop Until Timer - Beg >= 30   
       Sheets("Sheet1").Select   
       Application.CutCopyMode = False   
       Selection.Copy   
       Sheets("Sheet5").Select   
       ActiveSheet.Paste   
       Sheets("Sheet1").Select   
   End Sub   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)