Auto execute a macro if a cell value=1 ?

[Sven]

Hi,

I have looked at the suggested link from cpearson.com but I still don'
get the macro to be executed. The macro itself is working fine and i
executes fine when I start it manually. But what I'm looking for is t
auto-start the macro called MacroX every 60 seconds only if the cel
B3=1 If the cell is not exacley 1 , do nothing.

I have tried the following code but I cannot get it to work:


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


The name of the sheet is called MySheet but I guess that doesn'
matter.

Thanks for all the help so far,
Sve

 

[Guest]

Hi
you have to put this code in your worksheet module and not in a standard
module:
- right-click on your tab name
- choose 'Code'
- now paste your code