FOR/NEXT Funktion

Hallo,
ich möchte ein und die Selbe Funktion in mehreren Tabellen ausführen lassen!
z.b.

Sub Tabellen()
Dim x As Integer
For x = 1 To 3
Tabellex.Activate
Range("A1") = "Hallo"
Next i
End Sub