VBA字典做数据有效性

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 26 And Range("f" & Target.Row) = "柏广清" Then

Set d = CreateObject("scripting.dictionary")
rng = Sheets("基础资料").Range("c8:c9")
For i = 1 To UBound(rng)
d(rng(i, 1)) = ""
Next
a = d.keys

Range("z" & Target.Row).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Join(a, ",")
End With
d.RemoveAll
End If
End Sub