Hi,

I would like to do the Else (scroll) action only once

If I click AC15, it will zoom in; If I click out, It will zoomout, but it will keep scrolling to the left anytime I click anywhere; I want the focus/scroll to be set once or until I click the cell again;

This is what I have

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$AC$15" Then
ActiveWindow.Zoom = 120
ActiveWindow.ScrollColumn = 20
Else
ActiveWindow.Zoom = 70
ActiveWindow.LargeScroll ToRight:=-1
End If

End Sub

Thank You