thank you guys
Dim lngRed As Long, lngYellow As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
If Weekday(me.dateplan) = 1 Then 'or vbmonday or something
Me.dateplan.BackColor = lngYellow
End If
ain't work. I...