Dim i as Long, j as Long
Dim obx as MSControls.OptionButton
for i = 1 to 3
if userform1.Controls("OptionButton" & i).Value then
j = i
exit for
end if
Next
set obx = userform1.Controls("OptionButton" & j)

--
Regards,
Tom Ogilvy

"Tempy" wrote in message
...
Hi all, i hope i explain this correctly. I have 3 option boxes on a form
that you can select one of them. I then go into the module code and need
to know which option button is true and not being a programmer i am not
sure how to do it. Could somebody please help?

Tempy

*** Sent via Developersdex http://www.developersdex.com ***