Message box if cell is duplicate

is there a way of having the below statement to state if there are duplicated have a messgae box state" Duplicates Found"

and if there are not

"No Duplicates Found"

Worksheets("Summary").Select

'
    Columns("Z:Z").Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16751204
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 10284031
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    
    MsgBox "Done"
End Sub