Show dialog window

[mohan.r1980]

Hi Friends,

Please help me for below code
first i want tell what i want
i am lokking a dialog window insted of input box.
in Inputbox, i put the path where my file tobe save.

So here i want to dialog box which will save the path in my variable

Dim outputPath
outputPath = Application.InputBox("Please Paste The Output Path", "Output Path")
    If outputPath = "" Then
    Exit Sub
    
 Workbooks.Add
     ChDir outputPath
     ActiveWorkbook.SaveAs Filename:= _
        outputPath & "\Merge File.xls", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
        Windows("Merge File.xls").Activate