Help amending code

[Steve]

Hi

I have the following code set to a commandbutton:

Workbooks.Open Filename:= _
"\\Statistics\Year 05-06\September.xls"

However, if the sheet is already open in the background, I get an error
message. What can I add to this code so that, if the sheet is already
open, it just switches over to it?

TIA

Steve

 

[Bob Phillips]

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"
Endf If
On Error Goto 0
oWb.Activate


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Steve]

Thanks Bob.

For some reason I keep getting the red error line; the "Filename" part
seems to be the problem...?

Steve

 

[Bob Phillips]

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]

That did it. Thanks a lot, Bob.

Best,

Steve