Assuming optionbuttons are in a userform you could do something like this.
(don't tie any of the buttons to a cell)
i = 0
for each ct in me.Controls
if typeof ct is MSForms.OptionButton then
i = i + 1
if ct.Value then
Range("Whatever").Value = i
exist for
end if
end if
Next

--
Regards,
Tom Ogilvy


"Robert Couchman" wrote in
message ...
Hi,
I am currently working on a project to transfer application forms to a
spread sheet, so far i have been able to add all data, but i am looking for
a piece of program that will allow me to use a group of radio boxes (option
boxes) to output a number rather than having the same number of cells and
true only apearing in one of them.

thank you,

Robert Couchman