Excel - Definir un rango con macros

Saludos a todos en el foro

Molestando con una duda, tengo un còdigo que necesito usar, dentro del cual tengo que defiir un nombre de un rango, el problema es que cuando el rango varia, ya sea que tiene màs columnas o filas el nombre establecido en la macro no cambia:

Con la grabadora de macros el còdigo es este:

ActiveWorkbook.Names.Add Name:="john", RefersToR1C1:="=Hoja1!R1C1:R6C3"

Lo que no sé como hacer para modificar después de RefersToR1C1:= y que coloque el mismo nombre en el àrea que yo tenga seleccionada en ése momento, ya que el código que le antecede es :

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

¿Como debo modificar el código para que me defina un nombre de acuerdo a lo que yo tenga seleccionado previamente?

Sin màs por el momento doy las gracias de antemano por cualquier ayuda al respecto

Jonathan

prueba usando

Selection.Address

Saludos, desde Baires, JuanC

Escribí

ActiveWorkbook.Names.Add Name:="john", RefersToR1C1:=Selection.Address

Pero no hace nada, al verificar el código solo me pone el rango pero no me especifica cual hoja, intenté agregar activeSheet pero me marca error
¿Qué me recomoiendas?

Saludos

prueba modificando los argumentos de Address (ver la Ayuda)

RefersToR1C1:=Selection.Address(, , xlR1C1)

no sé qué pretendes que haga el código, sólo agrega un nombre...

Saludos, desde Baires, JuanC

Gracias por contestar
he seguido tu consejo y resolví el problema, lo que yo necesitaba era que, sin importar si ya existía un nombre, al rango que yo tuviera seleccionado al ejecutar la macro, le asignara un nombre específico (region).

el código resultó así:

ActiveWorkbook.Names.Add Name:="Region", RefersToR1C1:="=Hoja1!" & Selection.Address(ReferenceStyle:=xlR1C1)

Realmente no supe como cambiarle Hoja1 por ActiveSheet.name o algo por el estilo pero por el momento funciona si puedes mejorarla.

Saludos y gracias nuevamente

Quizas asi:

ActiveWorkbook.Names.Add Name:="Region", RefersTo:=Worksheets(ActiveSheet.Name).Range(Selection.Address)

Abraham

Muchas Gracias, ya viendolo se ve lógico, pero simplemente no me salìa
Saludos desde México

Saludos.

Genial su hilo de conversación, me ha servido mucho, gracias a los dos.

En mi caso, se trataba de generar un nombre de rango para una lista variable de alumnos por grupo y usar ese nombre de rango en una persiana desplegable para consulta individual, así que si la lista era de 19, o la lista cambiaba a 25 alumnos, el rango se pudiera modificar a ese tamaño, a mi me quedó el código de la siguiente manera:

Application.Goto Reference:="Fantasma"
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="Consulta", RefersTo:=Worksheets(ActiveSheet.Name).Range(Selection.Address)

De nuevo saludos desde México D.F.

Hugo

que pena tengo esta macro el cual me valida si me hace falta por llenar un campo, no se como hacer para que esas tres celdas sean de las filas que se escoja para que me haga la validación es decir de a2:c200 pero que me cambie al seleccionar los campos

esta se pega en el modulo
Sub Bt()
If Range("D2") <> "" And Range("E2") <> "" And Range("F2") <> "" Then
ActiveWorkbook.Names.Add Name:="NOMBRES", RefersTo:=Worksheets(ActiveSheet.Name).Range(Selection.Address)
ActiveWorkbook.Save 'SERIA ALGO ASÍ
Else
MsgBox ("Una de las celdas D2, E2 y F2 está(n) vacia(s), favor revise y rellene" & vbCrLf & vbCrLf & "Antes no podrá cerrar el libro"), , "vbInformation" + "ERROR DE CIERRE"
End If
End Sub

y esta en ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("D2") = "" Or Range("E2") = "" Or Range("F2") = "" Then
MsgBox ("Una de las celdas D2, E2 y F2 está(n) vacia(s), favor revise y rellene" & vbCrLf & vbCrLf & "Antes no podrá cerrar el libro"), , "vbInformation" + "ERROR DE CIERRE"
Cancel = True
End If
End Sub

si me pueden ayudar muchísimas gracias