Message box display after using conditional formatting to identify duplicate values

Hello,

I have recorded a macro to highlight duplicates cell values in column F:F in sheet 1 and and Column F:F in sheet 2. I would like to have a message box displayed at the end of running macro to show which sheet has a duplicate value.

Please help.

Thanks in advance.

Hi,

Here is the macro I recorded. I want a message box to be added to tell there are duplicates in Sheet "Permanent" or "Contract Calculation".

Sub Checkforduplicates()
'
' Checkforduplicates Macro
'
' Keyboard Shortcut: Ctrl+e
'
Sheets("Permanent").Select
Columns("F:F").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Sheets("Contract Calculation").Select
Columns("F:F").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Sheets("Permanent").Select
Range("A2").Select
End Sub

Thanks