Drop down box value to trigger macro

[willow1985]

I have drop down lists in column O where you can toggle the status from "blank", to "open" to "closed".

What I would like to do is have a certain macro run every time the status is changed in any of the cells in column O.

the following vba code that I currently have (that I inserted under sheet3 (Database)) is below but currently when I change any of the status of any of the cells in column O on the Database sheet nothing happens.

Could someone be able to tell me what I am missing?

Thank you

Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Count > 1 Then Exit Sub
    If Target.Address <> "O:O" Then Exit Sub
    
    Select Case Target.Text
    Case "Open": Call Open1
    Case "Closed": Call Closed
    Case Else: Exit Sub
End Select
End Sub

 

[MoshiM]

I have drop down lists in column O where you can toggle the status from "blank", to "open" to "closed".

What I would like to do is have a certain macro run every time the status is changed in any of the cells in column O.

the following vba code that I currently have (that I inserted under sheet3 (Database)) is below but currently when I change any of the status of any of the cells in column O on the Database sheet nothing happens.

Could someone be able to tell me what I am missing?

Thank you

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Columns("O")) Or Target.count > 1 Then Exit Sub
    
Select Case Target.Text
    Case "Open": Call Open1
    Case "Closed": Call closed
    Case Else: Exit Sub
End Select
    
End Sub

 

[DanteAmor]

You must compare data with data, address with address, column with column, ex:

  If Target.Column <> Columns("O").Column Then Exit Sub

Or

  If Intersect(Target, Range("O:O")) Is Nothing Then Exit Sub

 

[MoshiM]

Use Dante's or add is nothing after the intersect function and remove the not from mine.

 

[willow1985]

Works perfectly, thank you so much!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.

 

[TritonCoding]

Slight modification of the if intersect statement

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("E1")) Is Nothing Then
        Select Case Range("E1")
            Case "Phil": Macro1
            Case "Ralph": Macro2
            Case "Susan": Macro3
        End Select
    End If
End Sub

Video showing the code