VBA Question on Option Box

[easybpw]

Hello and thanks in advance for the help,

I know the code below works (all other aspects of my codes work) when I want to select male or female in an option box but I can't figure out how to change it when the option box has 4 different options. I have changed other parts of the code but the debugger stops here when I try and add additional options.

.Cells(iRow, 3) = IIf(frmForm.optFemale.Value = True, "Female", "Male")

I'm a very basic VBA guy so any help is appreciated.

Thanks!

 

[Eric W]

What are your 4 different options? The code above works for True/False. If the options are 0-3, then something like:

.Cells(iRow, 4) = Array("Option 0", "Option 1", "Option 2", "Option 3")(frmForm.optSomething.Value)

If your options are other numbers, it's easy enough to shift them to fit the array ranges. If your options are values, you can just send them directly to the cell:

.Cells(iRow, 4) = frmForm.optSomething.Value

Otherwise, you'd need some kind of lookup table.