Option Explicit
Public Sub SaveAsE5()
Dim ThisFile as string
Dim myPath as string

myPath = "C:\your path here"
if right(mypath,1) < "\" then
mypath = mypath & "\"
end if

ThisFile = Activesheet.Range("E5").Value
ActiveWorkbook.SaveAs Filename:=mypath & ThisFile
End Sub

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

--

Dave Peterson