Run macro IF Condition

[hlopes]

Hi,

I need to run a macro based on the contents of a cell, if cell A1
Apples, then
run macro1, if cell A1 = Oranges, then run macro2, etc.
Can anyone help.

Thanks
(e-mail address removed)

 

[Bob Phillips]

You cannot call the macro from the worksheet function, but you could setup a
worksheet event to fire it

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
With Target
If .Value = "Apples" Then
Macro1
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.