Path for File Saving Defined by USER

Hi All,

I have written the following code:

Sub Macro1()

    Sheets("Finalsheet").Select
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    Cells.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "J:\HSS\SIV\2007"
    ActiveWorkbook.SaveAs Filename:= _
        "JJ:\HSS\SIV\2007\abc.txt", FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
    End Sub

This code save the new file in a pre-defined path and gives a particular name only...

I want whenever user runs this macro.....they should get a Saving Option (As it is in Windows new file Save Option).


Is it possible??/