Try this


' Module : Module1
' DateTime : 06/09/2005 06:04
' Author : royUK
' Website : www.excel-it.com
' Purpose : Display open File Dialog

Option Explicit
 
Sub OpenFile()
Application.GetOpenFilename
End Sub