I have two sets of option buttons on a user form.

Once all the userform data is entered, the user clicks a command button to save the data. I using code similar to the following to copy the data to a separate worksheet (this code works fine):

.Cells(curRow, 2).value = Me.txtVIN.value
.Cells(curRow, 3).value = Me.txtLocalID.value
.Cells(curRow, 4).value = Me.cboVehicleType.value
The options buttons have a "New" or "Used" captions in the first set and "Yes" or "No" in the second set. I thought i could just save one answer for each option set with the following:

If VehicleForm.Opt_New = True Then
    ActiveCell.value = VehicleForm.Opt_New.Caption
ElseIf VehicleForm.opt_Used = True Then
    ActiveCell.value = VehicleForm.opt_Used.Caption
Else
    ActiveCell.value = ""
End If
However, this only produces a blank cell when the copy code is executed:

.Cells(curRow, 8).value = Me.ActiveCell.value

Can anyone set me straight or am i pursuing something that isn't possible?

Thanks.