Auto execute a macro if a cell value=1 ?

[Sven]

Hi,
Yippey, Now the macroX execute every 60 seconds, brilliant!!

But: I want this automatic procedure every 60 seconds ONLY if cel
B3=1

Right now it seams like the macro is executed all the time every 6
seconds
In other words: It doesn't matter what cell B3 contains.

How can I adjust the VBA code for that? The currrent code looks lik
the following:

Private Sub Worksheet_Change(ByVal Target As Range)
Set i = Application.Intersect(Target, Range("B3"))
If Not i Is Nothing And Target.Value = 1 Then MacroX
Application.OnTime Now + TimeValue("00:01:00"), "MacroX"
End Sub

Thanks, Sve

 

[Bob Phillips]

Test in MacroX if B3 = 1, if not then exit.

--

HTH

RP
(remove nothere from the email address if mailing direct)