If rng(1,7) contains true or false

Checkbox1.Value = rng(1,7).Value

--
Regards,
Tom Ogilvy

"Patrick Simonds" wrote in message
...
I want to initialize my userform when it opens. I know how to do this for
a
Textbox:

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

'Places data in the userform text boxes if it exists on the spreadsheet

' Misc.
TextBox1.Text = rng(1, 3).Text 'First Name
TextBox2.Text = rng(1, 4).Text 'Last Name

But how do you do this with a Checkbox?

It would be looking at rng(1, 7)