Loop Conditional Formatting - VBA

[CJG19]

Good Morning All,

I am trying to set up a loop conditional formatting with a pop up message, but something isn't working, can anyone help please?

If BO equals 0, BK is greater than 0 and BL says No then I want the cell in BL to turn red and a pop up massage to question 'Have we received final account certificate?' Once turned to yes it carries on to the next cell continues to the bottom of the table then goes back to the beginning. I have the following and I am unsure where I am going wrong:

Sub Final_Account_Cert()

'Remove cell fill colour
With Range("BK5:B100").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("BL5").Select
'Begin the loop
Do Until ActiveCell.Value = ""
If ActiveCell.Value = No And ActiveCell.Offset(0, -1) > 0 And ActiveCell.Offset(0, 3) = 0 Then
'Display a message to the user
MsgBox "Have We Received Final Account Certificate?", vbInformation, "Invoice Detail"
'Format Invoice Code Cell to Red
ActiveCell.Interior.Color = 255
End If
ActiveCell.Offset(1, 0).Select
Loop

End Sub

I would appreciate any help!

TIA!

CJG19

 

[bebo021999]

Put below code in workheet_selectionchange even of "sheet" (not in module) to fire the range BL5:BL100 selection

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("BL5:BL100")) Is Nothing Then
        If Target.Offset(, -1) > 0 And Target = "No" And Target.Offset(, 3) = 0 Then
        MsgBox "Have We Received Final Account Certificate?", vbInformation, "Invoice Detail"
        Target.Interior.Color = 255
        End If
    End If
End Sub

 

[CJG19]

It doesn't seem to work:

Have I done something wrong?

 

[CJG19]

Can anyone help please?