Verificar el nombre de una hoja de calculo

[jesus miguel]

Buenos días:

Tengo el siguinte código:

Sub NombreHoja()
   ActiveSheet.Name = Range("B1").Value
   
End Sub

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  

[YoelMonsalve]

Sub NombreHoja()

	Dim Nombre as String
	Dim existe as Boolean
	Dim Hoja as Worksheet

	Nombre = Range("B1").Value
	existe = False
	For each Hoja in ThisWorkbook.Worksheets
		If Hoja.Name = Nombre then
			existe = True
			Exit Sub
		End If
	Next

	if existe = true Then
		MsgBox "Por favor, introduzca otro nombre e intente de nuevo"
		exit Sub
	else
		ActiveSheet.Name = Nombre
	end if
   

End Sub

 

[John Jairo V]

¡Hola a todos!

Otra opción:

Sub VerificaHoja()
   If Evaluate("ISREF('" & [B1] & "'!A1)") Then
      MsgBox "El nombre de la hoja ya existe. Intente nuevamente"
   Else
      ActiveSheet.Name = [B1]
   End If
End Sub

Nota: En tu macro @YoelMonsalve, debes cambiar la línea Exit Sub por Exit For.

¡Bendiciones!

[YoelMonsalve]

Cierto, la escribí "a capella", sin probarla

 

Sub NombreHoja()

	Dim Nombre as String
	Dim existe as Boolean
	Dim Hoja as Worksheet

	Nombre = Range("B1").Value
	existe = False
	For each Hoja in ThisWorkbook.Worksheets
		If Hoja.Name = Nombre then
			existe = True
			Exit for
		End If
	Next

	if existe = true Then
		MsgBox "Por favor, introduzca otro nombre e intente de nuevo"
		exit Sub
	else
		ActiveSheet.Name = Nombre
	end if
   

End Sub

 

[Antoni]

.

Aprovechando On Error:

Sub NombreHoja(): On Error Resume Next
   MsgBox "La hoja " & Sheets(Range("B1").Value).Name & " ya existe"
   ActiveSheet.Name = Range("B1").Value
End Sub