VBA Worksheet Problem

Dim Worksheet as Worksheet
Dim Zeilenzaehler as Integer

For Each Worksheet In ActiveWorkbook.Worksheets(Array("TT", "TR", "GG", "ZD"))

Worksheet.Select

For i = 4 To 2000
If Worksheet.Cells(i, 2).Interior.ColorIndex = 33 Then
Zeilenzaehler = i
Exit For
Else
'do nothing
End If
Next i

ActiveWorkbook.Worksheets("Ausgabeblatt").Cells(5, 2).Value = Worksheet.Cells(Zeilenzaehler, 4)

Next Worksheet

Das Ganze sucht in einem Sheet nach blau hinterlegten Zeilen, und gibt die dann in einem anderen sheet wieder aus.
Es tritt allerdings ein Fehler bei "Worksheets("Ausgabeblatt").Cells(5, 2).Value = Worksheet.Cells(Zeilenzaehler, 4)" auf. Wieso?

ADAM