Sub Zone()
Module3.pointEff
Dim Ctrl As Control
For Each Ctrl In USERFORM1.Controls
If TypeName(Ctrl) = "Label" And Left(Ctrl.Name, 7) = ("MOD_") & (USERFORM1.Zone.Text) & "_" & (USERFORM1.C2.Text) Then
Ctrl.Visible = True
End If
If TypeName(Ctrl) = "Label" And Left(Ctrl.Name, 8) = ("MOD_") & (USERFORM1.Zone.Text) & "_" & (USERFORM1.C2.Text) Then
Ctrl.Visible = True
End If
Next
End Sub