Hi, I would like to "save as" with the active cell value to a
specified folder.
If use SaveAs Filename=ActiveCell.Text it save to My documents which I
don't want.
Any tips? Thanks in advance / Magnus

ActiveWorkbook.SaveAs Filename:=ActiveCell.Text, FileFormat:=xlNormal
_
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

On 1 Aug, 15:12, wrote:
Hi, I would like to "save as" with the active cell value to a
specified folder.
If use SaveAs Filename=ActiveCell.Text it save to My documents which I
don't want.
Any tips? Thanks in advance / Magnus

ActiveWorkbook.SaveAs Filename:=ActiveCell.Text, FileFormat:=xlNormal
_
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

SaveAs filename:="C:\temp\" & activecell.text

obviously replace my example c:\temp with whatever path you want!!!

answer taken from another thread on same subject from Bob Phillips

sFilename = Format(Worksheets("Sheet1").Range("A1").Value, "yyyy-mm-dd")
ans = MsgBox ("Save file as " & sFilename)
if ans = vbOK Then
Activeworkbook.SaveAs Filename:= sFilename
End If

Above should give you the general idea, although if memory serves this will
still save to your default "My Documents", will search for another method as
this was a question I asked on this NG a while ago

HTH

" wrote:

Hi, I would like to "save as" with the active cell value to a
specified folder.
If use SaveAs Filename=ActiveCell.Text it save to My documents which I
don't want.
Any tips? Thanks in advance / Magnus

ActiveWorkbook.SaveAs Filename:=ActiveCell.Text, FileFormat:=xlNormal
_
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

If you know the path in which you want to save the file, just add the path
to the filename:
ActiveWorkbook.SaveAs Filename:="C:\Test\" & ActiveCell.Text
HTH, James
wrote in message
ups.com...
Hi, I would like to "save as" with the active cell value to a
specified folder.
If use SaveAs Filename=ActiveCell.Text it save to My documents which I
don't want.
Any tips? Thanks in advance / Magnus

ActiveWorkbook.SaveAs Filename:=ActiveCell.Text, FileFormat:=xlNormal
_
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False