NOMBRE DE HOJA....

Yo antes comprobaria un par de cosas:

Function NombreValido(Texto As String) As Boolean
Dim RegExp As Object
Set RegExp = CreateObject("vbscript.regexp")
With RegExp
.Pattern = "['.""*/:<>?\\|]"
.Global = True
.IgnoreCase = True
Set x = .Execute(Texto)
NombreValido = x.Count = 0
End With
End Function

Sub test()
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets(ActiveSheet.[A1].Value)
On Error GoTo 0
If Not ws Is Nothing Then
MsgBox "Hoja con este nombre ya existe!", vbCritical
ElseIf Not NombreValido(ActiveSheet.[A1]) Then
MsgBox "El nombre contiene caracteres invalidos!", vbCritical
Else
ActiveSheet.Name = ActiveSheet.[A1]
End If
End Sub


Saludos,
KL


"Gabriel Raigosa" wrote in message

> entonces con esta macro
>
> Sub Macro1()
> ActiveSheet.Name = Cells(1, 1)
> End Sub
>
>
> Gabriel Raigosa
> GabrielRaigosa "@" hotmail.com
>
> http://esnips.com/web/Raigosa
> http://esnips.com/web/ForoExcel


> "Carlos" escribió en el mensaje
> news:%
> | Buenas noches grupo...
> |
> | Una pregunta.. cómo le hago para asignar el texto de la celda A1 como
> nombre
> | a la hoja1?
> |
> | Gracias
> |
> |
>
>

entonces con esta macro

Sub Macro1()
ActiveSheet.Name = Cells(1, 1)
End Sub


Gabriel Raigosa
GabrielRaigosa "@" hotmail.com

http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel

"Carlos" escribió en el mensaje
news:%
| Buenas noches grupo...
|
| Una pregunta.. cómo le hago para asignar el texto de la celda A1 como
nombre
| a la hoja1?
|
| Gracias
|
|