Hallo Michael,
füge innerhalb For...Next folgende Zeile ein:
Cells(zelle.Row, 33).Value = True 'oder False
Beste Grüße
Wolfgang