userform option button to worksheet text value

[ipbr21054]

Morning,
Below is part of my code is in use which works fine apart from the Option Button code.
On my userform i have 4 Option buttons.
OptionButton1 = 41601
OptionButton2 = UPRATED 41601
OptionButton3 = 41835
OptionButton4 = UPRATED 41835

The user will only select one of these options but im not sure who to get the value into the worksheet cell correctly.
The current line of code below transfers to the correct cell but shows value as opposed to what the option button value is,make sense to you ?

With ThisWorkbook.Worksheets("RANGER")
    .Range("B5").Value = TextBox1.Text
    .Range("D5").Value = TextBox2.Text
    .Range("F5").Value = TextBox3.Text
    .Range("C5").Value = ComboBox1.Text
    .Range("G5").Value = ComboBox2.Text
    .Range("H5").Value = ComboBox3.Text
    .Range("E5").Value = OptionButton1.Value

 

[mohadin]

set Caption
OptionButton1 = 41601
OptionButton2 = UPRATED 41601
OptionButton3 = 41835
OptionButton4 = UPRATED 41835

Then some thing like

 For i = 1 To 4
        If Me.Controls("OptionButton" & i) = True Then
            .Range("E5").Value = Me.Controls("OptionButton" & i).Caption
        End If
    Next

 

[ipbr21054]

Many thanks worked a treat

 

[mohadin]

You are very welcome
And thank you for the feedback
Be happy