Dim WksToSave as worksheet
set wks = activesheet
wks.copy 'to a new workbook

with activesheet
'just overwrite the .csv file, don't give me a warning
application.displayalerts = false
.parent.saveas _
filename:="C:\tocav" & format(.range("a1").value, "mmyy") & "m.csv", _
fileformat:=xlcsv
application.displayalerts = true
.parent.close savechanges:=false
end with

Helmut wrote:

I have date in "A1" = 28/02/2008
I want to save worksheet as:

"c:\ToCav0208m.csv"

--

Dave Peterson