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

sStr = MyPath & LE_Actuals & "\" & Arr(i)
If Dir(sStr) < "" Then
Workbooks.Open (sStr,0, ReadOnly:=True)
ActiveWorkbook.Windows(1).Visible = False
Else
msgbox sStr & " was not found" & vbCrLf & _
"Please select the file to open after clicking OK"
d1 = curdir
chdrive MyPath
chdir MyPath & LE_Actuals
fName = Application.GetOpenFileName("Excel Files (*.xls),*.xls")
if fName < False then
ActiveWorkbook.Open(fName,0,ReadOnly:=True)
ActiveWorkbook.Windows(1).Visible = False
chdrive d1
chdir d1
else
chdrive d1
chdir d1
Exit Sub
end if
End If

Although it seems odd to prompt the user to designate a file and then open
it hidden.

--
Regards,
Tom Ogilvy

"Jeff" wrote in message
...
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

Tom We open the file so that we can perfrom a series of changes to it,
extract data and then close it down without any intervention from the users
who if they could, would certainly take the oportunity to change the data in
their favour.

Thanks for the help I will try out the code today!

"Tom Ogilvy" wrote:

sStr = MyPath & LE_Actuals & "\" & Arr(i)
If Dir(sStr) < "" Then
Workbooks.Open (sStr,0, ReadOnly:=True)
ActiveWorkbook.Windows(1).Visible = False
Else
msgbox sStr & " was not found" & vbCrLf & _
"Please select the file to open after clicking OK"
d1 = curdir
chdrive MyPath
chdir MyPath & LE_Actuals
fName = Application.GetOpenFileName("Excel Files (*.xls),*.xls")
if fName < False then
ActiveWorkbook.Open(fName,0,ReadOnly:=True)
ActiveWorkbook.Windows(1).Visible = False
chdrive d1
chdir d1
else
chdrive d1
chdir d1
Exit Sub
end if
End If

Although it seems odd to prompt the user to designate a file and then open
it hidden.

--
Regards,
Tom Ogilvy

"Jeff" wrote in message
...
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