"Notification".
i appericate you too much you have done .
i mean you code on "Notification".
please browse attachment snap shot .
if you write like this code
Sub pop message _Click() '' notification
Dim i As Long
Dim expdate As String
Dim Edate As String
Edate = Format(Now(), "mm/dd/yyyy")
'' look for expired dates ''
For i = 2 To 9
If DateDiff("d", Cells(i, 2).Value, Edate) <= 30 Then
AND
ForEachcell In C2:C9
IfIsEmpty(cell) Then
cell.Value = MSGBOX
and fill cell with black ground white and word informed
End If
Next i
End Sub
|