Hacer referencia a varios TextBox

[JoaoM]

HOla amig@s
Vengo con una solicitud de si alguien me puede ayudar a que esta pequeña macro haga referencia a varios TextBox

Código:

Private Sub CheckBox4_Click()
    If CheckBox4 Then
        With TextBox1  'and TextBox2 and TextBox3 and TextBox4 and TextBox5
            .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

Quiero que en ves de uno solo aquí, que sean varios
[QUOTE]With TextBox1[and TextBox2 and TextBox3 and TextBox4 and TextBox5/QUOTE]
La finalidad es que coloque todos estos TextBox con contenido en el color designado por mi


Gracias