Afkrydsningsfelter i userform

Fejl det skulle være
Me.U2.value = sheets("Indstillinger").cells(3,1).value

Et forslag - skal evt. modificeres:

Private Sub UserForm_activate()
Dim uC As Control, r, c
    r = 2                                          'række
    c = 1                                          'kolonne

Rem eksempel med 5 checkbox'es
    For f = 1 To 5
        Set uC = Me.Controls("u" + CStr(f))
        uC.Value = Sheets("Indstillinger").Cells(r + (f - 1), c).Value
    Next f
End Sub

Virker fint, tak for det. Du bliver nødtil, at lave et svar, hvis du vil have point.

Det gør jeg så...