SaveAs macro

I have this save as macro that I'm using to save from a certain cell, it works fine but it saves to the last place I saved a previous file how can I have it open up the browse window to choose where I want to save it?
Here is the macro I'm using

Public Sub SaveAsA1()
    ThisFile = Range("A1").Value
    ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

Open up the VBEditor and put this macro into the ThisWorkBook module, it completely replaces the SAVE function. If it's a SAVEAS, it will offer a name based on the cells desired:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Jerry Beaucaire (11/17/2009)  
'Always offer saveas with cell value from A1 on the a specifically named sheet 
Dim SvName As String

SvName = Sheets("Sheet1").Range("A1").Value
Application.EnableEvents = False

    If SaveAsUI = True Then
        Application.Dialogs(xlDialogSaveAs).Show SvName
    Else
        Me.Save
    End If

Cancel = True
Application.EnableEvents = True
End Sub

Be sure to edit the sheet name in the macro to the correct one.

Try this:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Jerry Beaucaire (11/17/2009)
'Always offer saveas with cell value from A1 on the a specifically named sheet
Dim SvName As String

SvName = Sheets("Sheet1").Range("A1").Value
If InStr(SvName, ".") > 0 Then SvName = Left(SvName, InStr(SvName, ".") - 1)
Application.EnableEvents = False

    If SaveAsUI = True Then
        Application.Dialogs(xlDialogSaveAs).Show SvName
    Else
        Me.Save
    End If

Cancel = True
Application.EnableEvents = True
End Sub

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.