Creating an Option list using VBA Excel, need help with fixing this code please

[Curious2]

i have written the following code within the userform1 module, the code is to display 3 options using an option list and then display the data into the spreadsheet, however the data doesnt get displayed onto the sheet, some insight into this problem will be highly appreciated thank you very much!!

code Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub Frame1_Click()

Dim thechoice As String
'
If Me.OptionButton1 Then
thechoice = "1"
ElseIf Me.OptionButton2 Then
thechoice = "2"
ElseIf Me.OptionButton3 Then
thechoice = "3"
Else
thechoice = "4"
End If
ActiveCell.Offset(0, 2).Value = thechoice
End Sub /code

[Pete_UK]

And how does this differ from your other thread, submitted 17 minutes earlier?

Pete

[FDibbins]

Welcome to the Forum, unfortunately:

This is a duplicate post and as such does not comply with Rule 5 of our forum rules. This thread will now be closed, you may continue in your other thread.

http://www.excelforum.com/excel-prog...de-please.html
Thread Closed.