Выравнивание столбцов

Имеется лист Excel разбитый на 4 панели, в pane(4) перемещается активная ячейка по определённому алгоритму(по вызову макроса), при перемещении в Pane(4) перелистывается лист до видимости активной ячейки, как правило она оказывается где-то посередине pane(4). Надо закончить выполнение макроса, тем чтобы столбец в котором выделена ячейка оказывался граничащим с разделяющей линией.
Сначала я решил это используя
ActiveWindow.Panes(4).VisibleRange.Left
и ActiveWindow.Panes(4).SmallScroll ToRight:=JumpPoz

Но в другом листе ширина столбцов оказывается другой, и результат оставляет желать лучшего. Можно конечно, задать заранее ширины столбцов, и тогда всё будет работать. Но можно ли сделать это независящим от их ширины?