Worksheet_Change wont Trigger

S

Scorcel

I have created this code below.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
If Range("A1").Value > Range("A2").Value Then
GetUp
End If
End If
End Sub

It does execute the function GetUp only when I personally
invoked the value to A1, but it doesn't when I get its
value from another cell.

Also, how can I run a macro say every 2 minutes in Excel
VBA?

Any help would be appreciated. Thank you very much.
 
Top