Try

Dim FName As Variant
FName = Application.GetOpenFilename("All files (*.*),*.*")
If FName = False Then
' user clicked cancel
Else
MsgBox FName
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"jazzy " wrote in message
...
Thank you for tryng to help me but what if the file u want to
open is
not an excel file its an access file


---
Message posted from http://www.ExcelForum.com/