the obvious answer is that rng(1,3) = "member"
even though you might think it does. (extra space?, activecell not what you
think it is? )

--
Regards,
Tom Ogilvy




"Patrick Simonds" wrote:

Why does the code below not set OptionButton1.Value to True?

Private Sub UserForm_Initialize()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

TextBox1.Text = rng(1, 1).Text
TextBox2.Text = rng(1, 2).Text
TextBox3.Text = rng(1, 4).Text

If rng(1, 3) = "member" Then
OptionButton1.Value = True
End If

End Sub