Change title in an open dialog box and keep selected filename as string

unlike the open dialog, getopenfilename only returns a file(s) path and filename. You then have to open the workbook.

Dim vntFilename As Variant
dim wbkTemp as workbook

vntFilename = Application.GetOpenFilename("Excel files (*.xl*),*.xl*", , "My Dialog Title")
If vntFilename = False Then
    ' nothing selected
Else
    MsgBox "User selected " & vntFilename
    set wbkTemp = workbooks.open(vntFilename)
End If