On error, resume

[Albatross]

I have a sheet that when opened, populates it's data via vlookups and opens 4 more sheets for updating purposes.

Currently, if I already have any of those 4 sheets open, the macro breaks. What I would like to be able to do is have the main sheet run it's macro and if it sees that the sheet it's trying to open, is already open, skip it and continue on to the next one.

I tried the help files but came up wanting. Any help would be appreciated.

[RobDog888]

Post your code where your attempting to open one of the sheets. Are the sheets hidden or just dont exist in the workbook at that time and get .Add'ed?

[Albatross]

Series of filters and other code precedes this.

Sheets("Sheet1").Select
Workbooks.Open Filename:= _
"\\jca\local\80g\Sam\washrep.xls", updatelinks:=0
Workbooks.Open Filename:= _
"\\jca\local\80g\Sam\Database.xls", updatelinks:=0
Workbooks.Open Filename:= _
"\\jca\local\80g\Sam\COs.xls", updatelinks:=0
Workbooks.Open Filename:= _
"\\jca\local\80g\Sam\monthlyrep.xls", updatelinks:=0
Windows("Sheet1.xls").Activate

~~~Bunch of other updates follow this.

[RobDog888]

Ok, to check if your desired workbook is already open then you would iterate through the workbooks collection looking for a match.

Dim i As Integer
Dim bFound As Boolean
For i = 1 to Workbooks.Count
    If Workbooks(i).Name = "\\jca\local\80g\Sam\washrep.xls" Then
        MsgBox "Already Open"
        bFound = True
        Exit For
    End If
Next
If bFound = False Then MsbBox "Not Opened"

[Albatross]

Hmmm...couldn't seem to get it to work. I'm going to play with it on a saved copy and see what I get but, if possible, are there other codes to try?

[RobDog888]

Nope, thats about the only way other then error trapping the already open workbook error.

What error did you get?