D
Dave Ramage
Add this code to the userform module:
Private Sub CheckBox6_Click()
Dim i As Integer
If CheckBox6.Value = True Then
For i = 1 To 5
Me.Controls("CheckBox" & i).Value = True
Next i
End If
End Sub
Cheers,
Dave.
Private Sub CheckBox6_Click()
Dim i As Integer
If CheckBox6.Value = True Then
For i = 1 To 5
Me.Controls("CheckBox" & i).Value = True
Next i
End If
End Sub
Cheers,
Dave.