Macro to prompt user to select a file and the selected file should saved in location

Hi,

I'm trying to write a code which will prompt user to select a file and the selected file should get saved in the location specified in cell A1 in the master file (note i'll be running macro from the master file). When i run the below code i'm getting an error message stating object required.

Sub Test()

'path specified in master file
Dim a As String
a = Cells(1, 1).Value

'prompt the user to select a file

Dim filename

filename = Application.GetOpenFilename

'upon selecting file, it should get saved in the path specified in A1 cell in master file
If filename <> False Then
filename.SaveAs "a"


End If
End Sub

Thanks Marvin! I appreciate your response. In my scenario i shouldn't open the file but the macro should allow me to choose a file and the selected file should get saved in the path specified in A1.

Example - i run a macro from Book1 and the macro should prompt me to select a file and the selected file should get saved in the location mentioned in Book1 A1 cell.

Thanks again.

Hi Marvin,

I appreciate your response. The code that you have suggested saves the selected file as it is rather than the location specificed in the A1. Now I have figured out a method.

Sub SaveFilesInA1()

Dim Path As String

Path = Workbooks("Book1").Worksheets("Sheet1").Range("A1")
Application.FindFile
ActiveWorkbook.SaveAs Path & ActiveWorkbook.Name
ActiveWorkbook.Close
End Sub