G
Guest
I am using the following code to open a read only, non-visible spreadsheet. I
would like to be able to pop a dialog box/File search window if an error
occurs. This way the user can search for the file if it has been moved. What
do I need to add/call to make this happen?
'============================ Open LE Read Only and Invisible
=====================
On Error Resume Next
'Range("b3") = MyPath & LE_Actuals & Arr(i)
If Dir(MyPath & LE_Actuals & "\" & Arr(i)) <> "" Then
Workbooks.Open (MyPath & LE_Actuals & Arr(i)), 0, ReadOnly:=True
ActiveWorkbook.Windows(1).Visible = False
End If
would like to be able to pop a dialog box/File search window if an error
occurs. This way the user can search for the file if it has been moved. What
do I need to add/call to make this happen?
'============================ Open LE Read Only and Invisible
=====================
On Error Resume Next
'Range("b3") = MyPath & LE_Actuals & Arr(i)
If Dir(MyPath & LE_Actuals & "\" & Arr(i)) <> "" Then
Workbooks.Open (MyPath & LE_Actuals & Arr(i)), 0, ReadOnly:=True
ActiveWorkbook.Windows(1).Visible = False
End If