How to I check if cell equals 48 ?

How to I check if cell F5 = 48 ? and then show up a message. Here is what I am using.

The problem is that the work "Sick" Change all the time and then the message don't show up. I just want to check cell F4 = 0 AND f5 =48 THEN MESSAGE.

Private Sub Worksheet_Change(ByVal Target As Range)


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



End If
End Sub

Please Login or Register  to view this content.

Simplify the code,
you should set the target range though so the code doesn't kick in every time there is a change in the worksheet.

Please Login or Register  to view this content.

Good Morning,

How can I stop the message to show up every time I select a option . i want the message to show up one time only. When F4 = 0

Please Login or Register  to view this content.

My previous answer mentions that you need to set the target range, what is the target range?

Attaching a sample workbook enables others to work on your problem:

To attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include BEFORE/AFTER sheets if needed to show the process you're trying to complete or automate. Remember to desensitize the data.

Click on GO ADVANCED and click "manage attachments" to open the upload window.




AddFile.jpg

To add a file to a post