Newbie VBA Question

[BRWFS15]

Hi All,

I'm fairly new at VBA and this one has stumped me. I have a worksheet with two separate dropdown lists. I'm trying to point each dropdown to their own separate pivot table by using Worksheet_Change. The chosen value will filter the pivot table with the same value.

Excel is giving me an ambiguous error as I can't use two Worksheet_Changes. I need some help combining, here is what I have:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Call Piv
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("K6")) Is Nothing Then Exit Sub
Call Opportunity
End Sub

Thanks in advance!

 

[mumps]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1,K6")) Is Nothing Then Exit Sub
    Select Case Target.Address
        Case "$A$1"
            Call Piv
        Case "$K$6"
            Call Opportunity
    End Select
End Sub

 

[BRWFS15]

Thanks mumps - works like a charm, and I learned something new. Appreciate your help!

 

[mumps]

You are very welcome.