Re: Macro With Timer Event
- From: "Dave O" <CycleZen@xxxxxxxxx>
- Date: 12 Dec 2005 09:35:28 -0800
Hi, Sax-
The reason you got an error is because you have "ambiguous" names for
your routines: you have 3 macros all named "Delay". You need to make
them unique, maybe Delay1, Delay2, and Delay3, or combine them all into
one routine called Delay, which I've done below.
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
Beg = Timer
Do
Loop Until Timer - Beg >= 30
Sheets("Sheet1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet4").Select
ActiveSheet.Paste
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
.
- References:
- Macro With Timer Event
- From: Saxman
- Re: Macro With Timer Event
- From: Dave O
- Re: Macro With Timer Event
- From: Saxman
- Macro With Timer Event
- Prev by Date: why would this happen?
- Next by Date: Re: why would this happen?
- Previous by thread: Re: Macro With Timer Event
- Next by thread: Re: Websites
- Index(es):
Relevant Pages
|