In diesem Beispiel wird für eine Abfragetabelle festgelegt, dass bei jeder Aktualisierung alle Formeln rechts der Abfragetabelle automatisch aktualisiert werden.
Sheets("sheet1").QueryTables.Item(1).FillAdjacentFormulas = True