Thanks for that i think I've got it working but a but clumsy...
lngGrey = RGB(169, 169, 169)
lngWhite = RGB(255, 255, 255)
Me.End_Jun_08_Label.Caption = "28/06/2008"
If Me.End_Jun_08_Label.Caption > Me.txtTodaysDate Then
Me.End_Jun_08.Enabled = False
Me.End_Jun_08.Locked = True...