On Aug 31, 4:14*pm, "Vacuum Sealed" <noodn...@gmail.com> 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
|