VBA - Problem with short code

[thedogg]

I have the code like below, the problem is that the state after and doesn't work. Seems to be that works only fisrt part of IF.Do you have any
sugestion? I want to count workbooks without sheet named "BOM" and cell A13 different of END.

Dim ww As Integer
Dim cpt As Integer
Dim Wb As Workbook
For Each Wb In Workbooks

    If Left(Wb.Sheets(1).name, 3) <> "BOM" And Wb.Sheets(1).Range("A13") <> "END" Then
    cpt = cpt + 1
    Else
    End If
Next

MsgBox ww - cpt

 

[steve the fish]

Consider the below:

MsgBox "END" <> "end"
MsgBox "END" <> UCase("end")

You will see that case matters so make sure you are aware. What is ww?

 

[thedogg]

ww is redundant.

 

[thedogg]

I am also wondering if there is any option to display if I am in workbook 1/3 or 3/3. Is it somehow possible?