here is my code.
Sub Restore_Setup()
Dim Finfo As String
Dim FilterIndex As Long
Dim Title As String
Dim FileName As Variant
Finfo = "Text Files (*.txt),*.txt,"
Title = "Select a SETUP to Import"
FileName = Application.GetOpenFilename(Finfo, _
FilterIndex, Title)
If...