Private Sub Worksheet_Change(ByVal Target As Range)


If Range("F4") = 0 And Range("F5") = 48 Then MsgBox "The employee is out of excused sick days.", vbCritical, "Excused Sick Leave Left"

End Sub