Guardar libro Mejorar Macro

Que tal tengo esta macro que funciona bien, pero a la hora de sobreescribir el archivo original sale el mensaje de deseas sobrescribirlo, y quiero que lo sobrescriba sin preguntar, y que no salga la ventana de confirmación.
Sub Auto_Close()
' Directorio de Respaldo
Ruta = "C:\CopiaDiaria"
nonfic = Format(Date, "yy-mm-dd") & ".xls"
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & nonfic
'Directorio de Original
Ruta = "C:\Documents and Settings\PRUEBAS MACROS"
nonfic = "Corresp06.xls"
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & nonfic
ThisWorkbook.Close True 'cierra y guadra los cambios sin la alerta
End Sub
Gracias por tu ayuda.
Atte.Luis Ham