Ron

That helps immensley.

Thanks

Al@n


"Ron Coderre" wrote in message
...
For the optWOther optionbutton, set the Tag to: "Other"

Then use something like this:

'--------Start of Code----------
Dim oCtrl As Control
Dim MWidth
For Each oCtrl In UserForm1.Controls
If UCase(Left(oCtrl.Name, 4)) = "OPTW" Then
If oCtrl.Value = True Then
MWidth = oCtrl.Tag
If MWidth = "Other" Then
MWidth = txtWOther.Value
End If
Exit For
End If
End If
Next oCtrl
'--------End of Code----------

You'd probably also want to check that the user actually entered a value.

Does that help?
***********
Regards,
Ron

XL2002, WinXP


"Al@n" wrote:

Ron

Thanks for the suggestion, I've never come across TAG before. I guess for
the free format entre "optWOther", I will have to define the TAG using
code.

I'll give it a go

Thanks again.

Thanks

Alan
"Ron Coderre" wrote in message
...
Try something like this:

1) Use a naming convention for the option buttons
Example: All width settings optionbuttons begin with "optW"

2)Enter the width value in the TAG property of those option buttons
Example: optW20 would have a TAG property set to: 20

3) Use this kind of code the harvest the MWidth value:


'--------Start of Code----------
Dim oCtrl As Control
Dim MWidth
For Each oCtrl In UserForm1.Controls
If UCase(Left(oCtrl.Name, 4)) = "OPTW" Then
If oCtrl.Value = True Then
MWidth = oCtrl.Tag
Exit For
End If
End If
Next oCtrl
'--------End of Code----------


Is that something you can work with?
***********
Regards,
Ron

XL2002, WinXP


"Al@n" wrote:

Hi

I have a dialog box in which there are a number of frames(fraMWidth)
containing option buttons. I'm trying to use Select Case statements to
define values dependant on which option button is chosen. I'm
struggling
with the code and would appreciate any assistance.

A snippet of code so far is:

Dim MWidth as integer
Select Case fraMWidth.Control.Value
Case optW20 = True
MWidth = 20
Case optW16 = True
MWidth = 16
Case optW12 = True
MWidth = 12
Case optW10 = True
MWidth = 10
Case optW8 = True
MWidth = 8
Case optWOther = True
MWidth = txtWOther.Value
End Select


TIA


--
Al@n