Try this for getting the filename !

vb Code:
  1. Dim sFullName As String
  2.  
  3. Application.FileDialog(msoFileDialogOpen).Show
  4. sFullName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)