Crear nombre de rango

Hola a todos

Tengo la siguiente macro

Dim List As Range
Dim ran1 As String
Dim ran2 As String
ran1 = Left(Application.WorksheetFunction.VLookup(Worksheets("OT").Range("C12"), Worksheets("Listas").Range("AM36", "AN72"), 2, False), 5)
ran2 = Right(Application.WorksheetFunction.VLookup(Worksheets("OT").Range("C12"), Worksheets("Listas").Range("AM36", "AN72"), 2, False), 5)

ActiveWorkbook.Names.Add.Name = "List"
.RefersTo = Range(ran1,ran2)

pero me da error de compilación de referencia no valida o sin calificar.

ran1=P63 y ran2=P69 en este caso, pero según el valor de C12 eso varia.

Solicito ayuda.

Lo que busco es crear el nombre de rango List con rangos distintos en función del valor que tenga en la celda C12