Gültigkeitsliste ohne Zellenbereich

Sub Makro1()
With Range("P2").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="a;b;c"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

bringt mir in P2 nur die einzeilige Auswahl:
a;b;c
ich möchte aber diese 3spaltige Auswahl:
a
b
c
Gebe ich manuell a;b;c bei Quelle der Gültigkeit ein, klappt dies ja.
Danke ^ Gruß
Reinhard