SaveAs location to ActiveWorkbook.path

[guybrown]

Hi all!

Is there an easy way to have this macro save the file Text_on_XY.scr in the ActiveWorkbook.path?



Sub Text_on_XY()
ActiveWorkbook.SaveAs Filename:= _
"H:\Text_on_XY.scr", FileFormat:=xlTextPrinter, _
CreateBackup:=False
End Sub

 

[VoG]

Try

Sub Text_on_XY()
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\" & "Text_on_XY.scr", FileFormat:=xlTextPrinter, _
CreateBackup:=False
End Sub

 

[Jon von der Heyden]

Try

FileName:= ActiveWorkbook.Path & "\Text_on_XY.scr"

 

[guybrown]

perfect! thanks a lot guys!