does anyone know how I can set the column of the active cell to be
leftmost
in the window?
When I activate a cell I need to see a specific range of columns starting
from the active one.

After you activate the cell, execute this...

ActiveWindow.ScrollColumn = ActiveCell.Column
ActiveWindow.ScrollRow = ActiveCell.Row

Rick