Why not use the same form with a button to save and another button t
open

You would then only need to use the workbook open command once the use
has entered the relavant info into the text boxes

Try

Sub fffff()
Dim sFile As String
sFile$ = Range("a4").Value
If sFile = "" Then
Exit Sub
End If
If Dir(sFile) = "" Then
MsgBox "File Not Found"
' or use
sFile$ = Application.GetOpenFilename("Excel Files (*.*),*.xls")
If sFile = False Then
Exit Sub
End If
End If
Workbooks.Open FileName:=sFile

End Su

--
Message posted from http://www.ExcelForum.com