range.validation funktioniert

ich möchte über VBA den Gültigkeitsbereich angeben. Dabei möchte ich die Werte fest vorgeben und nicht einer Tabelle ablegen. Solange ich dieses über -> Daten -> Gültigkeitsbereich mache - kein Problem. Wenn ich mir das als Macro speichere bekomme ich dann den Code:

Sub Macro1()

    With Selection.Validation

        .Delete

        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

        xlBetween, Formula1:="name; title; type"

        .IgnoreBlank = True

        .InCellDropdown = True

        .InputTitle = ""

        .ErrorTitle = ""

        .InputMessage = ""

        .ErrorMessage = ""

        .ShowInput = True

        .ShowError = True

    End With

End Sub

1000 Dank
walter