Problem Storing X,Y Coords with MouseDown

I am trying to get the simple code below to cycle and put X and Y coordinates sequentially into cells. I can do it for the first cell, but it doesn't repeat. If I code it to put x and y in other cells, it automatically puts the first X and Y in all the cells--all the same number with only one click.

Sugestions?

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Range("A1").Value = X
End Sub


'Even when I put B1 for the x coordinate in B1 from the second click, B1 gets popullated after the first click, and all are the same x and same y.

Administrative Note:

We would very much like to help you with your query, however the thread title does not really convey what your request is about.

Please take a moment to amend your thread title. Make sure that the title properly explains your request. Your title should be explicit and not be generic (this includes function names used without an indication of what you are trying to achieve).

Please see Forum Rule #1 about proper thread titles and adjust accordingly. To edit the thread title, open the original post to edit and then click on Go Advanced (bottom right) to access the area where you can edit your title.

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)