Define Specific Location. You could put the full path and file name in the
cell. You could hard code a path in the procedule like this...

Public Sub SaveAsE5()
thisWorkbook.SaveAs C:\WhereEver\ & Sheets("Sheet1").Range("E5").Value
End Sub

or in the same directory as the existing workbook

Public Sub SaveAsE5()
with thisWorkbook
.SaveAs .path & "\" & Sheets("Sheet1").Range("E5").Value
end with
End Sub
--
HTH...

Jim Thomlinson


"totally lost" wrote:

Hi,
how do I get this to save the file to specific location, it just keeps going
to my documents.

Public Sub SaveAsE5()
ThisFile = Range("E5").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub