VBA: For Each wb In Workbooks - doesn't work

[thedogg]

I have a problem with "For Each wb In Workbooks". I want to close all workbooks which haven't met certain condition.

Dim wb As Workbook
For Each wb In Workbooks
wb.Activate
    If Left(wb.Sheets(1).name, 4) <> "BOM." Then
        wb.Close SaveChanges:=False
    ElseIf Left(wb.Sheets(1).name, 4) = "BOM." And wb.Sheets(1).Tab.Color = 49407 Or wb.Sheets(1).Tab.Color = 49407 Or wb.Sheets(1).Tab.Color = 5296274 Then
    wb.Close SaveChanges:=False
    End If
Next

Macro randomly close what should be closed. Sometimes it depends which workbook is as Workbook(1). Could you advise?

 

[thedogg]

the code is closing the workbook and stop working after that. The code is not going further to next workbook in case of check.

The code is not in any of macro workbook. The code is in .xlam

 

[RoryA]

An xlam is a workbook. It will be included in the loop.

 

[steve the fish]

In post number 2 i said put brackets around your or conditions. It doesnt appear you did that. Then in post number 3 i said you need to avoid closing the workbook where the macro was housed. It doesnt appear you did that either. Why would that be?