For this one you will need to add a reference to the “MS office object library” Then you can write something like this: 1234567891011121314151617181920212223242526272829303132Sub OpenFile()    strFileName = GetFile(strStart, "Select Your File")    ‘open your file, import it, or here we are just displaying the name    Msgbox strFileName End Sub Private Function GetFile(start_here, title_bar […]