Tengo una macro para renombrar hoja,que debo agregarle para que salga un msgbox,cuando ese nombre ya existe?

Sub renombrar()
ActiveSheet.Range("A8").Activate
Do While Not IsEmpty(ActiveCell)
Nombre_Hoja_Nueva = ActiveCell.Offset(0, 8).Value
ActiveSheet.Name = Range("A8")
Set Target = Range("A8")
If Target = "" Then Exit Sub
Exit Sub
Loop
End Sub

Esta es la macro, si alguna hoja ya tiene ese nombre se va a depurar, quiero evitar eso... Y que salga un msgbox diciendo que " ESE NOMBRE YA EXISTE "