Font-Objekt ohne Sheet.Activate setzen

Die Sache ist eigentlich eher kosmetischer & geschwindigkeitstechnischer Natur. Ich möchte die Farbe von Zellen über viele Seiten hinweg ändern und kann dies nur mit aktivierten Sheet,

sprich immer erst (a)

Tabelle_X.Activate
Tabelle_X.Cells(x,y).Font.Color = ..
Tabelle_Y.Activate
Tabelle_Y.Cells(x,y).Font.Color = ..
Tabelle_Z.Activate
Tabelle_Z.Cells(x,y).Font.Color = ..

statt (b)

Tabelle_X.Cells(x,y).Font.Color = ..
Tabelle_Y.Cells(x,y).Font.Color = ..
Tabelle_Z.Cells(x,y).Font.Color = ..

Warum geht das nicht wie in (b) ("Auf das Font-Objekt kann nicht zugegriffen werden"), das wäre doch schneller und eleganter?

Marko