Necesito ayuda con una macro

Hola,

Tengo la macro que pongo al final, que abre una fichero de texto
delimitado por comas, lo hace bien, pero luego la misma macro al final
graba el fichero como Libro Excel.

Lo que necesito y no se como hacerlo es que me grabe el libro excel
con la fecha del dia anterior al que se ejecuta la macro, o sea que si
la macro la ejecuto el dia 18-06-2005 el fichero se tiene que grabar
como "Dia17062005" o algo asi.

A ver si alguien me puede ayudar para corregir la linea
correspondiente en la macro.

Muchas gracias.

saludos,
Engel


Sub Spam()
'
' Spam Macro
' Macro grabada el 16/06/2005 por Engel
'
' Acceso directo: CTRL+s
'
Workbooks.OpenText Filename:="C:\Descargas\Dia??.txt",
Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1),
Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1),
Array(8, 1)), _
TrailingMinusNumbers:=True
Range("A:A,B:B,E:E").Select
Range("E1").Activate
Selection.EntireColumn.Hidden = True
Columns("G:G").ColumnWidth = 14.64
Columns("D:D").ColumnWidth = 18.73
Columns("D:D").ColumnWidth = 22.36
Columns("H:H").ColumnWidth = 8.27
Columns("C:C").ColumnWidth = 39.73
Columns("C:C").ColumnWidth = 39.18
Range("C7").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="No"
Columns("C:C").ColumnWidth = 42.64
Columns("C:C").ColumnWidth = 45.18
Columns("C:C").ColumnWidth = 46
ActiveWorkbook.SaveAs Filename:="C:\Descargas\Dia????????.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub