Tabellen nacheinander ansprechen

wie kann ich per VBA dir tabellen in einer mappe
der reihe nach ansprechen??
ich habe es folgendermaßen versucht aber es funktioniert
nicht :

Sub test()
For Each Sheet In Workbook
Cells(1, 1).Value = "1"
Next
End Sub

kann mir jmd. helfen?

danke