Dim ctl As Object For Each ctl In Me.Controls If TypeOf ctl Is Label Then ctl.Visible = True End If Next