[VB] MessageBox IF

[yvcher19]

Доброго времени суток!

Форумчане возник вопрос, в интернетах ответа конкретного не нашел.

Имеется диапазон ячеек с датами, если дата в одной из ячеек меньше чем Сегодня()+150 дней, ячейка закрашивается красным цветом.

Как сделать чтобы при соблюдение этого условия срабатывало информационное сообщение?

имею представление что код должен выглядеть примерно так, но до ума довести не получается.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
i = Sheets(1).Cells(Rows.Count, 23).End(xlUp).Row
For j = 4 To i
If Cells(j, 23).Value < DateValue(Now) + 150 Then
MsgBox "KARAMBA"
Exit Sub
End If
Next
End Sub

[yvcher19]

разобрался сам.спасибо всем ))