Evitar mensaje de aviso al eliminar hoja

Hola a todos.

En funcion de determinadas condiciones (con codigo) quiero que se elimine
o no una hoja determinada. Esto lo he conseguido, el problema es que no se
como evitar que excel me presente el mensaje de aviso: "Pueden existir
..¿Deseas eliminar la hoja"(mas o menos), y me interesaria que no lo
presentara, sino que directamente eliminara la hoja. Pongo el codigo usado
por si srve de ayuda. (A este procedimiento se le llama desde otro)

Por cierto ¿podria decime alguien si seria mejor que este procedimiento
fuese function en vez de sub y , si es asi, porque?

Agradezco vuestra ayuda de antemano.

Un saludo y hasta pronto
Ivan


Sub NuevaHoja(HojaNueva As String, Titulos As Variant)
On Error GoTo salir
Worksheets.Add after:=Worksheets("Libros seleccionados")
ActiveSheet.Name = HojaNueva
On Error GoTo 0
Dim colT As Long, LetraT As Variant
colT = UBound(Titulos)
LetraT = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _
"k", "l", "m", "n", "o", "p", "q", "r", "s")
With Worksheets(HojaNueva)
With .Range("a1:" & LetraT(colT) & "1")
.Value = Titulos
With .Font
.Bold = True
.Size = 10
End With
.HorizontalAlignment = xlCenter
.Interior.ColorIndex = 3
End With
End With
salir:
If ActiveSheet.Name <> HojaNueva Then ActiveSheet.Delete
End Sub