run macro automatically

Originally Posted by SMILE

Hello,
Is there any way I can run a macro depends on the value of a cell.

For Eg: If the value in A1=1 then run macro5, if the value in A1=2 then run macro3

Thanks in Advance
Toms

Hi,

In the Worksheet code window,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Address = "$A$1" Then
If Target.Value = 1 Then
 Module1.macro1
 Else
 If Target.Value = 2 Then
 Module1.macro2
 End If
End If
End If
End Sub

and in Module1

Sub macro1()
MsgBox 1
End Sub

Sub macro2()
MsgBox 2
End Sub

hth
---

Originally Posted by SMILE

Bryan
Thanks a lot... I got what I wanted...

Toms

Good to see it worked for you, and thanks for the response.

---

Originally Posted by SMILE

Bryan
just to know, what the following line does in the program ????

If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

thanks
toms

Hi,

it checks to see if more than a single cell triggered the code, or if the cell is empty, in either case nothing is required to happen.

hth
---