Excel - Hacer referencia a varios TextBox

Private Sub CheckBox4_Click()

    If CheckBox4 Then   'and TextBox2 and TextBox3 and TextBox4 and TextBox5

        With TextBox1  '

            .ForeColor = &H800000   'vbBlue ' RGB(0,0,255)'vbRed 'RGB(255, 0, 0)

            .Font.Bold = True

        End With

    Else

        With TextBox1  'and TextBox2 and TextBox3 and TextBox4 and TextBox5

            .ForeColor = &HC00000

            .Font.Bold = False

        End With

    End If

End Sub

Dim i%

Dim color&, bold As Boolean

Dim txt As MSForms.TextBox

If CheckBox4.Value Then

   color = &H800000

   bold = True

Else

     color = &HC00000

     bold = False

End If

For i = 1 To 5

    Set txt = Me.Controls.Item("TextBox" & i)

    With txt

         .ForeColor = color

         .Font.bold = bold

    End With

Next

wcolor = vbBlack: wbold = False

        If CheckBox3 Then wcolor = 3: wbold = True

        Cells(fil, col) = TextBox1          'Item #

        Cells(fil, col + 1) = TextBox2      'Producto #

        Cells(fil, col + 2) = TextBox3      'Descripcion del Producto

        Cells(fil, col + 8) = TextBox4      'Cant.

        Cells(fil, col + 8).Font.ColorIndex = wcolor

        Cells(fil, col + 8).Font.bold = wbold

        Cells(fil, col + 9) = TextBox5      'Pagina #