Just use ActiveWorkbook.Path to get the save location. Something
like:
CurrentPath = ActiveWorkbook.Path
Fname = CurrentPath & "\" & Worksheets("INFO").Range("AH8").Value
ActiveWorkbook.SaveAs Fname

CLR wrote:
Hi All...........

This code basically works, but saves to the "Excel default" directory rather
than to the directory the file came from......I want both saves to go right
back in to the same directory the file came from.......wherever that might
be. How can I force this please?

Sub NewSaveArchive()
CurrentPath = CurDir
archivepath = CurrentPath + "\" 'Default Directory
WorkBookName = ActiveWorkbook.Name
Fname = archivepath
Fname = Fname + Worksheets("INFO").Range("AH8").Value
Fname = Fname & Format(Time, "_hh_mm_ss") & Format(Date, "_Mmm_dd_yyyy")
Sheets("StaffingMatrixGF").Select
Range("a1").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Fname
Fname = CurrentPath + "\" + WorkBookName
ActiveWorkbook.SaveAs Fname
Application.DisplayAlerts = True
End Sub

Vaya con Dios,
Chuck, CABGx3