Excel - hojas nuevas

heyyy.... como seria el macro para poder insertar hojas de calculo nuevas y que estas tengan nombres diferentes... por ejemplo: que ingrese una hoja nueva "hoja4" y que le ponga el nombre Ciudad, luego al ejecutar el macro que inserte otra hoja nueva "hoja5" y que le ponga de nombre Pais.. y asi sucesivamente..necesito el codigo . porfavor ayuda...

Un ejemplo:

Sub Nombre_hoja()
Dim nombre As String
nombre = InputBox("Que nombre le colocaras a la nueva hoja?")
Sheets.Add
ActiveSheet.Name = nombre
End Sub

Abraham

y si quiero cancelar el proceso, cuando le das al boton CANCEL te da un error, como puedo quitarlo?¿?