Buenos días
Tengo el siguiente código:
SubNombreHoja()
ActiveSheet.Name=Range("B1").Value
EndSub
Bueno pone el nombre a la hoja de calculo según el valor de la celda, mi pregunta es de que si hay otra hoja con el mismo nombre me de un aviso para cambiar de nombre o en su caso asignarle por defecto un carater numérico para diferenciarse de la otra hoja que tenga el mismo nombre.
SAludos cordiales
Jesús
Podemos hacer algo así como:
SubNombreHoja()
On error goto SiFalla
i=0
ActiveSheet.Name=Range("B1").Value
Exit Sub
SiFalla:
i=i+1
ActiveSheet.Name=Range("B1").Value + i
End Sub
No lo he probado. Testéalo y juega con ello a ver qué sale.
Un saludo
Gracias por la idea, muchas gracias
saludos cordiales
Jesús
Jesus Martinez Plantarosa