using VBA code to change pivot filters based on cell values

[Erin9903]

I have a worksheet with 5 different pivots tables, 4 from one source, and 1 from another source. I've mapped in my service director (SD) last names into both sources.
Here are the names of the pivot tables.

Summary
AllInvoices
Top10
Buckets
Unbilled

When I change the SD last name from a dropdown in cell A1, I want it to control the SD filters on the 5 different pivots. The field name in all the pivots, no matter the source, is SD.
I know I need to add code to the tab, which I have done below

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call SDnames
    End If
End Sub

I just can't get the SDnames macro to do the right thing. This doesn't work

Sub SDnames()
'
' SDnames Macro
'


'
    Range("B4") = Range.Value(A1)
    Range("B13") = Range.Value(A1)
    Range("F13") = Range.Value(A1)
    Range("A1:H1").Select
End Sub

here is a picture of the worksheet. Due to data sensitivity, I cannot share the workbook.
https://drive.google.com/open?id=0Bx...BheTVlSlJtdmFz

Thank you for any assistance you can offer.

 

[Erin9903]

bumpity bump bump.