El código está muy bien, sin embargo una forma de delimitar el bucle sería el siguiente
Código:
Dim r As Variant
For Each r In Me.Controls
If TypeOf r Is Label Then r.Visible = False
Next r
De este manera, solo buscara en la coleccion de controles y no en todo lo que involucra la forma acelerando así la instrucción
Saludos