Workbooks Count

I have a script running on a worksheet that checks that a name of a workbook is open or not

What happens is, it doesn't recognize that the workbook is open even when it is. When there are 2 workbooks and i msgbox workbooks(2).name, it gives me an error.


Private Sub Worksheet_Activate()

numofbooks = Workbooks.Count
j = 1
Bid1 = Sheets("Bid Summary").Range("B2").Value
For i = 1 To numofbooks
If Workbooks(i).Name = Bid1 Then
j = 0
Goto leave
End If
Next i '
leave:

If j = 0 Then
Sheets("Main").Range("L9").Value = "Checked"
Else
Sheets("Main").Range("L9").Value = "Check Failed"
End If

End Sub