Ændre Caption på 100 Checkbokse

Her er et par rutiner, som du kan lege med:

Private Sub DenDerKnap_Click()
    Dim lCount As Long

    If IsNumeric(TextBox1.Text) Then
        For lCount = CLng(TextBox1.Text) To CLng(TextBox1.Text) + 100
            Me.Controls("CheckBox" & CStr(lCount)).Caption = "Side " & CStr(lCount)
        Next lCount
    End If
End Sub


Private Sub CheckBox101_Change()
    Dim lCount As Long
   
    For lCount = 1 To 100
        Me.Controls("CheckBox" & CStr(lCount)).Value = CheckBox101.Value
    Next
End Sub

Hvis jeg skrev: 50 blev kun CkeckBox 50 til 100 omdøbt og derefter fik jeg en debug fejl da CheckBox 101 til 149 selvfølgelig ikke eksisterede!

Løsningen var:
Private Sub DenDerKnap_Click()
    Dim lCount As Long
        Dim TrakFra As Long
        Dim Minus1 As Long
        Minus1 = CLng(TextBox1.Text) - 1

    If IsNumeric(TextBox1.Text) Then
        For lCount = CLng(TextBox1.Text) To CLng(TextBox1.Text) + 99
       
        TrakFra = lCount - Minus1
       
            Me.Controls("CheckBox" & CStr(TrakFra)).Caption = "Side " & CStr(lCount)
        Next lCount
    End If

End Sub

Næste problem er at når jeg nu åbner min form for anden gang er Caption på alle CheckBox'es tilbage ved de gamle værdier. Jeg kan selvfølgelig bare også sætte ovenstående til min Form_Activate, men er der en bedre løsning så Caption huskes?

Caption's huskes ikke når de skiftes i 'Runtime'

Men du kan evt. linke TextBox1 til en celle, så tallet gemmes der, så bliver din rutine kørt ved åbning igen......

Det er også meningen at TextBox1 skal linkes til en celle og det er også gjort, men jeg vil stadig gerne undgå at skulle sætte koden 2 steder!

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    RefreshCheckBoxCaptions
End Sub

Private Sub UserForm_Initialize()
    RefreshCheckBoxCaptions
End Sub

Private Sub RefreshCheckBoxCaptions()
    Dim lCount As Long

    If IsNumeric(TextBox1.Text) Then
        For lCount = CLng(TextBox1.Text) To CLng(TextBox1.Text) + 99
            Me.Controls("CheckBox" & CStr(lCount - CLng(TextBox1.Text) - 1)) _
                .Caption = "Side " & CStr(lCount)
        Next lCount
    End If
End Sub