I have the following code that takes information from excel and creates a word file and saves it automatically to a specific location.

I need it to keep the same file name from the specific cells listed but instead of auto saving to a location I want it to prompt me with a save as dialog box so that I can select the location to save the word document to without changing the excel workbook location

Sub Save()
Dim varDoc As Object

        Set varDoc = CreateObject("Word.Application")

                  varDoc.Visible = True
                  Sheets("Steps").Range("A1:J56").Copy
                  varDoc.Documents.Add
                  varDoc.Selection.Paste
                  
                  ThisFile = Sheets("Variables").Range("A91")
                  varDoc.activedocument.SaveAs Filename:="C:\Documents and Settings\Desktop\Testing Word\TEST\" & ThisFile
                  varDoc.Quit
         Application.CutCopyMode = False
End Sub
Any Help Would be appreciated

thanks,

Matt