Sub nn()
Dim i As Long
With Me
For i = 1 To 8
SetBox .Controls("Box" & i), .Check1
Next i
For i = 1 To 4
.Controls("Date" & i).Enabled = .Check1
.Controls("Date" & i).CalendarBackColor = IIf(.Check1, vbWhite, &H8000000F)
Next i
End With
End Sub
Function SetBox(BName As Object, Ena)
BName.Enabled = Ena
BName.BackColor = IIf(Ena, vbWhite, &H8000000F)
End Function