Sorry Steve, missed the brackets
On Error Resume Next
Set oWb = Workbooks("September.xls")
If oWb Is Nothing Then
Set oWb = Workbooks.Open(Filename:= _
"\\Statistics\Year 05-06\September.xls")
End If
On Error GoTo 0
oWb.Activate
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Steve" wrote in message
oups.com...
Thanks Bob.
For some reason I keep getting the red error line; the "Filename" part
seems to be the problem...?
Steve
|