VBA path for save as

[khickey]

Does anyone know a way to alter the following VBA code to include a directory path? This subroutine saves the file with a name taken as the value in cell "A2" of sheet 1, but I need to add in a directory path to save the file where I want to.

Thanks in advance.............

Sub named_save

Sheets("Sheet1").Select
ThisFile = Range("A2").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
ActiveWindow.Close

End Sub

[Tom Schreiner]

Hi

Sub named_save

Sheets("Sheet1").Select
ThisFile = "C:MypathFolderNameEct" & Range("A2").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=ThisFile
ActiveWindow.Close

End Sub

Use singe

[ This Message was edited by: TsTom on 2002-04-25 21:39 ]

[khickey]

Thanks that works great now!!
cheers