This should work for you.

Sub openas()
Dim vOpenFileFilter As String
Dim vTitle As String
Dim GetFileName As String
Dim vFileOpenName

vTitle = "Select the export file to use."
vOpenFileFilter = "All files(*.*), *.*"

vFileOpenName = _
Application.GetOpenFilename(vOpenFileFilter, 5, vTitle)

If vFileOpenName = "" Then
Exit Sub
Else
GetFileName = vFileOpenName
End If
End Sub

Cloiff Edwards