Do ELSE only once

[rsmatharoo]

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

[YasserKhalil]

Hello
Welcome to the forum
Please put the code between code tags

Try to remove this line

Please Login or Register  to view this content.

[rsmatharoo]

Hi,

I do have it removed for now, but wanted to see somehow I can have it scroll to the left only once when I click out

Thanks

[shg]

Please Login or Register  to view this content.

Please take a few minutes to read the forum rules, and then edit your first post to add CODE tags.

[rsmatharoo]

Amazing!! Thank You!!!

[shg]

You're welcome.

But once again, please add CODE tags to your first post.