Filename macro and a little more?
something like:
Sub SaveAuto()
Dim fname
Dim fpath
Dim fprefix as string
fprefix = sheets("sheetname").cells(rownumber,columnnumber). value
fpath = "C:\Documents and Settings\Ken\Desktop\"
fname = fprefix & "_" & Format(Now, "MDD_hhmm")
ActiveWorkbook.SaveAs fpath & fname
End Sub
"kennected" wrote in message
...
The following works for me:
Sub SaveAuto()
Dim fname
Dim fpath
fpath = "C:\Documents and Settings\Ken\Desktop\"
fname = Format(Now, "MDD_hhmm")
ActiveWorkbook.SaveAs fpath & fname
End Sub
But in addition to the result of the date code, I would like the filename
result to contain a prefix using the contents of a partcular cell of the
original workbook (3 letters that represents a customer code) which would
allow us to sort the files saved by customer in the saved directory.
Can this be done
|