use part of date in cell for save as name
Typo:
Dim WksToSave as worksheet
should be
Dim Wks as worksheet
(or change those wks to wkstosave)
Dave Peterson wrote:
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
--
Dave Peterson
|