PrintArea abhängig von ActiveCell

hat jemand eine Idee, wie ich den Druckbereich in Abhängigkeit von der aktuellen Zellposition festlegen kann?

sollte so aussehen:

i = 1

While Cells(1, i) <> bestimmterWert

i = i + 1

Wend

Sheets(WTAG).PageSetup.PrintArea =Cells( 1, i), Cells(10, i + 10)

Letzteres funktioniert natürlich nicht...

kennt jemand spontan die Lösung?

Danke und Grüße
Mike