Abfrage über 2 Arbeitsmappen

habe folgendes Problem.

Möchte mit folgendem Code eine Abfrage aus einer anderen Tabelle starten. Das bedeutet man kann in eine Zelle (Zelle "A1" auf Sheet "AA" in Arbeitsmappe "Test1") einen wert eingeben. Wenn dieser Wert, der in einer anderen Arbeitsmappe ("Test2" Sheet "BB" von "A1" bis "A10") hinterlegt ist, übereinstimmt soll eine positie Meldung erscheinen. Wenn nicht soll eine Fehlermeldung kommen. Ich glaube ich mache irgentetwas falsch, aber was.

Bitte helt mir. Danke

Hier der Code

Private Sub CommandButton1_Click()
Dim a As Integer
For a = 1 To 10
If Sheets(1).Cells(1, 1) = Windows("Test2.xls").Sheets(1).Cells(a, 2) Then
MsgBox ("Super")
GoTo Ausgang
Else
MsgBox ("Schlecht")
GoTo Ausgang
End If
Next a
Ausgang:
End Sub