ThisWorkbook.SaveAs "c:\myfolder\BList " & Format(Date,"dd-mm-yy")

"/" is not accepted by Windows in the file names.

KL

"teresa" wrote in message
...
I have a workbook called a BList that I produce every Monday
I want to save it as the current date:
e.g.BList 09/12/04
Can someone help, many thks in advance

sub toda()

Thisworkbook.saveas ....

end sub