Como ocultar varios labels a la vez en vba excel?

Ese botón tendrá una macro como esta:

Private Sub CommandButton4_Click()
For Each CT In Me.Controls
    If TypeName(CT) = "Label" And CT.Name <= "Label37" Then CT.Visible = False
Next CT
End Sub

Si se trata de ocultar TODOS los label del formulario, no haría falta evaluar su nombre, quedando así:

Private Sub CommandButton4_Click()
For Each CT In Me.Controls
    If TypeName(CT) = "Label" Then CT.Visible = False
Next CT
End Sub

Sdos y no olvides finalizar la consulta.

le agradezco mucho su ayuda estoy por mi cuenta haciendo un programita en Excel. Mil Gracias.-

¡Gracias! 

Perdón por la molestia cuando ejecuto el botón

Sale un error que dice error de compilación: No se puede encontrar el proyecto en la biblioteca y selecciona esta parte: CT

Private Sub CommandButton6_Click()
For Each CT In Me.Controls
If TypeName(CT) = "Labe28" And CT.Name <= "Label57" Then CT.Visible = False
Next CT
End Sub

Gracias

En Typename debes indicar el tipo de control, o sea LABEL.

If TypeName(CT) = "Label" 

Y si debe ir desde el nro 28 hasta el 57, podrías usarla así:

Private Sub CommandButton1_Click()
For Each CT In Me.Controls
If CT.Name >= "Label" & 28 And CT.Name <= "Label" & 57 Then CT.Visible = False
Next CT
End Sub

PD) Si al inicio, en lugar de decir que los Label serían desde el 1 hasta el 37 (es decir que empezaban desde el principio) hubieses dicho desde el 28 hasta el 37... ya lo tendrías resuelto !

Sdos!