Create dropdown from dynamic list

Hello,

I'm trying to make a Macro that can make a dropdown list from a dynamic list in column A. So far I've come up with the following code:

Sub Test()

Range("A1", Range("A65536").End(xlUp)).Name = "MyList"

Cells(1, 3).Select

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="= & MyList"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

End Sub

However calling MyList doesn't work. Am i doing it wrong or does somone have another way of calling the named range.

Regards,
Kasper