|
Hola bolollo:
Aqui te pongo las cuatro lineas que sirven para cambiar el nombre de la hoja por el valor que tengas en una celda en concreto:
'Seleccionamos la celda A1, por ejemplo
Range("A1").Select
'Obtenemos la información de la celda seleccionada anteriormente: A1
cadena = (ActiveCell.FormulaR1C1)
'Ahora nos posicionamos en la hoja deseada, en este caso Hoja1
Sheets("Hoja1").Select
'Y modificamos el nombre de la Hoja1 por lo obtenido de la celda.
Sheets("Hoja1").Name = cadena
copia este codigo en tu macro y listo.
Espero haberte sido de ayuda.
Salu2.
|
