Como aplicar un nombre a una celda. Locooo

Buenos dias, me estoy volviendo loco al intentar asignar
un nombre a una celda desde vba.

Como lo debo hacer?
Extraigo de unas celdas la cadena que quiero asignar a la
celda pero luego no consigo asignarlo.

Gracias mil.

Sub NombreCeldas()
Dim nombCelda As Range
Dim strParteDescripcion As String
Dim strUnidad As String
Dim strNombre As String


For Each nombCelda In Range("ModoOP")
strParteDescripcion = Left$(nombCelda.Offset(0, -2), 4)
strUnidad = nombCelda.Offset(0, -3)
strNombre = """" & strParteDescripcion & "_" &

& """"
strUnidad = """=hoja1!""" & nombCelda.AddressLocal

Names.Add Name:=""" & strNombre & """, RefersTo:="=sheet1!
$a$1"

Next


End Sub

.

Buenos dias, me estoy volviendo loco al intentar asignar
un nombre a una celda desde vba.

Como lo debo hacer?
Extraigo de unas celdas la cadena que quiero asignar a la
celda pero luego no consigo asignarlo.

Gracias mil.

Sub NombreCeldas()
Dim nombCelda As Range
Dim strParteDescripcion As String
Dim strUnidad As String
Dim strNombre As String


For Each nombCelda In Range("ModoOP")
strParteDescripcion = Left$(nombCelda.Offset(0, -2), 4)
strUnidad = nombCelda.Offset(0, -3)
strNombre = """" & strParteDescripcion & "_" &

& """"
strUnidad = """=hoja1!""" & nombCelda.AddressLocal

Names.Add Name:=""" & strNombre & """, RefersTo:="=sheet1!
$a$1"

Next


End Sub

.