Excel - Ayuda en macro

hola que tal amigos foristas
quisiera corregir esta macro, como se haria?

sub auto_open()
dim sunombre as string
sunombre= inputbox("¿como se llama?")
msgbox "su nombre es " & sunombre
call auto_open
end sub

pasa que pongo un nombre, doy aceptar, y otra vuelta se repite y no se puede cerrar el libro ,como hago ?

cbic

sub auto_open()
dim sunombre as string
sunombre= inputbox("¿como se llama?")
msgbox "su nombre es " & sunombre
end sub

Deajlo asi, ese CALL llamaba a la macro a cada rato!!!

Abraham