JNW wrote:

"Sub" is the beginning of a procedure and "End Sub" ends that procedure. You
should replace the line between the beginning and ending with the code I
provided. You'll have to change the number value based on the selection
criteria.
i.e. replace the line "Range("A1").Value = "=15"" with what I suggested.

What you have provided is actually something that the button refers to to
get the code to run when pressed. I'd need more information to know what you
need to do to get the new button to run.

In a nutshell, one of my interests is horseracing.

On the racecard it is noted whether a horse has won over the course (C), distance
(D) or course and distance (CD). I award point for the above. 10 pts for a (C) or
(D) and 22 pts for (CD).

Horses would be listed in column B, maybe up to a maximum of 25, depending on the
number of runners.

My option buttons would be labelled C, D, CD and reset. Obviously, horse 1 would be
contained in cell B1 and its points recorded in cell A1, if any. I would then go
onto horse 2 and would need its points recorded in cell B2. Thinking logically, one
would also require 'None' or 0 points option button within the group, so that the
input data would shift one cell further down the column until all horses were
entered?



--