On Aug 31, 4:14*pm, "Vacuum Sealed" wrote:
HiMadiya

Try this:

* * ChDrive "F:\"
* * ChDir "F:\Dump"
* * FileToOpen = Application.GetOpenFilename _
* * (Title:="Select a File", _
* * FileFilter:="Excel Files *.xls (*.xls),")

* * If FileToOpen = False Then
* * MsgBox "No File has been Selected.", vbExclamation, "Doh!!!"
* * Exit Sub
* * Else
* * Workbooks.Open Filename:=FileToOpen
* * End If

HTH
Mick

It worked.
Thanks a ton.

Regards,
Madiya