Excel - Nombre en Hoja

Estimados:

Como puedo hacer q cuando presione en un boton se cree una hoja con un nombre ya especifico.... hice un macro q hace la hoja pero cada vez q lo presiono crea hoja1, hoja2.. etc.. a pesar de q le cambio a la hoja 2 de nombre, por ejemplo, la siguiente vez q preisono me da hoja3.... entonces q hago para q cuando presione el boton ya me salga la hoja con el nombre q quiero?

Saludos y gracias por las ayudas!

AM

Sub macro1()
Sheets.Add
Sheets("Hoja4").Select
Sheets("Hoja4").Name = "prueba"
End Sub

La macro que se crea seria algo parecido a esto. EL problema es que el nombre de la hoja , en este caso "prueba" ya existe , la macro debe darte un error y te creara la nueva hoja como hoja2.

Para que te funcione debes ceciorarte de que no existe ninguna hoja con el nombre que deseas, o modificar la macro para que tome un nombre cadavez diferente.

Trata de colocar en la macro una referencia a una celda donde esté el nombre que deseas, y luego donde dice .Name"prueba" indicas en que celda.

Me sale error?.. lo escribí asi..

Sheets.Add
Range("a1") = Date
Sheets("Hoja1").Select
Sheets("Hoja1").Name = Range("a1").Value
Range("B1").Select

como debe ser?
Gracias por las ayudas...

AM

Tienes que crearle una variable y luego asignarle el valor de C1, ve la ayuda de Visual.

Option Explicit

'//By JuanC - Ene. 2008

Sub test()
Dim ws As Worksheet
Dim sName$
sName = "Hoja"
On Error Resume Next
Set ws = Sheets(sName)
If ws Is Nothing Then
Set ws = ActiveWorkbook.Worksheets.Add
ws.Name = sName
Else
MsgBox "La hoja '" & sName & "' ya existe!"
End If
Set ws = Nothing
End Sub

Saludos desde Baires, JuanC