macro to save a file

[Janis]

I recorded this macro. It works but I want the filename to be a variable not
hard coded in the macro so it saves the current file name. Is there anyway
to keep it from writing over the last one if the names are the same? Say it
saved two of the same name in the same day. Perhaps by adding the datestamp
to the variable for the name?

thanks,


Option Explicit
Sub saveforIndesign()
'
' saveIndesign Macro
ChDir "Mac OS X:Users:jroughocuments:"

ActiveWorkbook.SaveAs Filename:= _
"Mac OS X:Users:jroughocuments:ssp_latest_082406.xls",
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

 

[Die_Another_Day]

Try this:
Const fPath as string = "WeirdMacintoshPathInfo"
Dim fName as string
fName = fPath & Variable & Time()

ActiveWorkbook.SaveAs FileName:=fName

HTH

Charles

 

[Mike]

If the windows scripting host object model is available on the Mac, you can
use the filesystemobject's .fileexists property to check if the filename is
already taken.