Run a macro when a cell changes

[Pauljj]

Afternoon all, I have a drop down option in cell C4, when the user changes anything in that cell I want the macro 'depdate' to run

I have written this but nothing happens ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C4")) Is Nothing Then
        Application.EnableEvents = False
        Call Module2.depdate
    End If
    Application.EnableEvents = True
End Sub

 

[Fluff]

Is C4 a data validation drop-down?

 

[Pauljj]

Is C4 a data validation drop-down?

Yes that is correct

 

[Fluff]

In that case I would suggest using a change event rather than a selectionchange event, although your code should still work

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C4")) Is Nothing Then
        Application.EnableEvents = False
        Call Module2.depdate
    End If
    Application.EnableEvents = True
End Sub

Is the code in the correct sheet module?

 

[Pauljj]

In that case I would suggest using a change event rather than a selectionchange event, although your code should still work

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C4")) Is Nothing Then
        Application.EnableEvents = False
        Call Module2.depdate
    End If
    Application.EnableEvents = True
End Sub

Is the code in the correct sheet module?

Thanks for this....the code isn't in the sheet module, does it need to be?

 

[Fluff]

Yes it does.

 

[Pauljj]

Yes it does.

Unfortunately nothing still happens

 

[Fluff]

Put this in a normal module, run it & then change C4

 

[Pauljj]

Put this in a normal module, run it & then change C4

I tested it in a module, I had to comment out the change line but it worked

Sub test()

'    If Not Intersect(Target, Range("C4")) Is Nothing Then

        Application.EnableEvents = False
        Call Module2.depdate
   ' End If
    Application.EnableEvents = True

End Sub

 

[Fluff]

But that will not run automatically when C4 is changed.