Nombre de Hoja

Con esta instruccion funciona correctamente

ActiveSheet.Name = Range("A1")

Saludos

hola, lbenaventea !

En la casilla A1 de la Hoja1 tengo un texto... y quiero dar este nombre a la Hoja2. Intente con lo siguiente y no me resulta [...]

1) el unico inconveniente que le veo a tus intenciones... es que [seguramente] la siguiente ocasion que necesites cambiarle el nombre...
la hoja [originalmente] 'hoja2'... habra cambiado de nombre a lo que hubieras tenido en la celda 'A1' de la hoja1 -y que era... ???-

2) las alternativas que te puedo sugerir [en lugar de los nombres de las hojas en sus etiquetas]...
a) usar el indice [o posicion dentro del libro] <= que -tambien- puede cambiar el usuario y las hojas ocultas 'cuentan':
b) usar el 'codename' de las hojas <= el que aparece en la ventana del explorador de proyectos en el editor de vba

3) [adicionalmente] la coleccion 'Sheets' -> incluye hojas de calculo, hojas de graficos, hojas de macros de excel4 ...
[p.e.] si tu libro contiene [en orden] una hoja de calculo, [luego] una hoja de graficos, [luego] una hoja de calculo...
-> Sheets(2) <= se refiere a la hoja de graficos [que se encuentra en la segunda posicion 'dentro' del libro]
-> Worksheets(2) <= se refiere a la segunda hoja de calculo [la tercera en el orden y secuencia dentro del libro]

4) si SOLO vas a modificar el nombre 'original' [por omision] a la "Hoja2" -> UNA SOLA Y UNICA VEZ...
prueba con una instruccion del tipo:-> Worksheets("hoja2").Name = Worksheets("hoja1").Range("a1")
faltaria considerar si la hoja2 fue creada en un excel en castellano... o en ingles [Sheet2]... o en otro idioma -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.