Stop Macro adding when cell value is reached?

Hello Everyone,

I am using the below line of code to add a number to cell A1. This is working great but I
do not want it to add past 25. The highest number needs to be 25. When 25 is reached I
want to the macro to stop working! I have tried to change things but to no avail! I can do
this with formulas no problem but it needs to be done with VB!

Sub Margate()
Range("A1") = Range("A1") + 1
End Sub

Thank you in advance for any help

HSV,

Thank you very for such a quick response. This works perfectly. I was trying every way but am just not that great at VB!