Track and write the number of times that sub is run into a cell

[Max]

I'm looking for a way to keep track of the number of times that a sub is run
(via the press of a forms button) and to write that number into a cell on the
sheet, say into G1. If the button is pressed 10x, then G1 will read: 10.
Thanks

 

[ozgrid.com]

Sub MyMacro()
If Application.Caller = "Button 1" Then
Sheet1.Range("G1") = Sheet1.Range("G1") + 1
End If

'YOUR CODE
End Sub

 

[Max]

Thanks, Dave. That worked well.