VBA / Macro to Select File and Save As

Right now I receive "Spreadsheet A" from a coworker and then I run a macro in "Spreadsheet B" to import the pertinent data from "Spreadsheet A" into "Spreadsheet B". In order for that all to run correctly I have to change the file name of "Spreadsheet A" to match the file name in the macro/vba code in "Spreadsheet B". I am hoping there is a macro/vba I could use to open a dialog box to browse to select "Spreadsheet A", open it, and then save it as a new file name. Currently I have a very basic code that allows me to navigate to and open "Spreadsheet A" and then a dialog box to Save As but after those run "Spreadsheet A" has not been saved to the selected location. I know I am missing a step but can't quite figure it out.

Here is my current code:

Sub openIt() 
    Dim strFile As String 
     
    strFile = Application.GetOpenFilename 
    strFile = Application.GetSaveAsFilename
    If strFile <> "False" Then Workbooks.Open strFile 
End Sub

Any and all help is greatly appreciated!! Also, to note - I am on a Mac using Excel 2011

Thank you!! That worked beautifully!!

allow me to follow this thread all, thank you