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