Multiple ScrollColumn (but once per click)

Hi,

I would like to create a macro allows to scroll through a large table but when I run the macro, it runs all the sequence at once (see below):

Sub BROWSE_1()
ActiveWindow.ScrollColumn = 19

ActiveWindow.ScrollColumn = 39

ActiveWindow.ScrollColumn = 62

ActiveWindow.ScrollColumn = 115

ActiveWindow.ScrollColumn = 131

End Sub

What I would like to do is when I click the macro once, it moves to column 19, twice then goes to 39 and so on (and not jump straight to column 131 as it is currently doing with the macro above).

Thanks a lot for your help.