Asignar nombres con macros de excel

Buenos días,

Soy bastante novatillo creando macros.

Tengo que crear una macro que me añada en un libro una hoja me escriba una serie de valores en celdas y en cada columna le asigne unos nombres. Después en la hoja 1 quiero incluir una lista de validación con cada una de las listas.

En total son 10 listas iguales en cada libro con los que trabajo, el primer dia lo hacia bien pero ya después da fallo sin haber cambiado nada.

He comprobado que el administrador de nombres en valor me sale{...} en lugar de los valores de las celdas

sub listas()

Workbooks(milibro).Sheets.Add
ActiveSheet.Name = "Hoja1"
Range("a1").value = "nombres"
Range("a2").value = "Javier"
Range("a3").value = "David"
Range("a4").value = "Pablo"
Range("a5").value = "luis"
Range("a6").value = "Rafa"
Range("a7").value = "Paco"
Range("a8").value = "francisco"
Range("a9").value = "Jose luis"
ActiveWorkbook.Names.Add Name:="nombres", _
RefersTo:="=Hoja1!$A$2:$A$9"
ActiveWorkbook.Names("nombres").Comment = ""

en sub

Sub validation(lista)

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