Hi guys,

I'm creating a file with a Sheet called MI Summary. There are two drop down lists in the sheet, D3 (named range COLLEAGUE) and H3 (named range TEAM). I've tried using the below code but it doesn't work. Basically what I'm trying to do is if either COLLEAGUE or TEAM changes, I'd like the opposite range to have it's cell contents cleared. After it's cleared, I want to run a formatting macro. Code is below and is located in the MI Summary sheet of my Objects.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

    If Not Intersect(Target, Range("COLLEAGUE,Team")) Is Nothing Then
    Range("TEAM").Select
    Selection.ClearContents
    Call CondFormat
    Exit Sub

    Else

    Range("COLLEAGUE").Select
    Selection.ClearContents
    Call CondFormat
    Exit Sub

End If

Application.ScreenUpdating = True

End Sub