Gennemløb af åbne workbooks

Hej alle

Jeg har brug for lidt hjælp til flg.

Jeg har x-antal regneark som skal testes for celleværdier. Jeg har noget i denne stil :

Function tst()
    Dim a, b
    a = Cells(2, 4)
    While "der er regneark"
        ActiveWorkbook.Close
        If Cells(2, 4) = a Then
            b = 1
        End If
    Wend
End Function

WetDog