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  

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

 

¡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!

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

 

.

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