How to know if no coincidence found?

[ColdGeorge]

Hi all

Dim Cell As Range
For Each Cell In Range("E5:E24")   
    If Cell.Value = Date Then
        MsgBox "Coincidence found"
    End If   
    Next

This simple code works fine, my question is: how should I amendment it to know when there is not a coincidence?

Thanks, ColdGeorge

 

[Fluff]

Maybe

   Dim Cell As Range
   For Each Cell In Range("E5:E24")
      If Cell.Value = Date Then
          MsgBox "Coincidence found"
          Exit Sub
      End If
      MsgBox "Not found"
   Next

 

[ColdGeorge]

Hi Fluff

Thanks for your quick response. But I have to hit the MsgBox button for each record in range. Is there a better way to do this?

ColdGeorge

 

[Fluff]

Oops, the 2nd msgbox should go after the Next not before.

 

[ColdGeorge]

Fluff

Now I'm a happy camper. Everything is under control. Thanks.

ColdGeorge

 

[Fluff]

You're welcome & thanks for the feedback.