In diesem Beispiel wird die dritte Spalte an die äußerste linke Position im Fenster verschoben.
Worksheets("Sheet1").Activate ActiveWindow.ScrollColumn = 3