Macro para guardar y sobreescribir

Buenas!

Os cuento: tengo en un fichero una macro que me hace una serie de
operaciones y al final me guarda el fichero con un nombre determinado e
incluyendo la fecha del día que se guardó.
Hasta ahí bien... ocurre que quiero incluir un último detalle, que sea que
en caso de que al guardar, el archivo ya exista, pues que lo sobreescriba. Y
no quiero que me salga la ventana de "El fichero ya existe, ¿quiere
sobreescribirlo?", sino que simplemente cuando llegue al paso de guardar,
aunque ya exista, directamente lo grabe encima sin preguntarme.

Hasta ahora, lo que tengo en la macro (pongo solo la parte que hace
referencia al momento en que guarda el fichero y lo cierra):

Dim Ruta As String, Nombre As String
Ruta = "C:\Documents and Settings\martaperez\Escritorio\"
Nombre = "Spend Albert García" & " " & _
Format(Date, "dd-mm-yy") & ".xls"
ActiveWorkbook.SaveAs _
Filename:=Ruta & Nombre, _
FileFormat:=xlNormal
ActiveWorkbook.Close

Intenté poner en la última fila:

ActiveWorkbook.Close SaveChanges:=False

Pero nada...

Muchas gracias por todo...