This little macro will report the address of each cell on the same worksheet that contains the text in the selected cell:
Public Sub FindDup()
Dim strFind As String
Dim rngCell As Range
strFind = ActiveCell.Text
If strFind <> "" Then
For Each rngCell In ActiveSheet.UsedRange
If rngCell.Text = strFind And rngCell.Address <> ActiveCell.Address Then
MsgBox "Cell " & rngCell.Address & " contains: " & rngCell.Text
You don't say what version of Excel you are using, so I can't suggest instructions for how to run this macro.
Do you want this macro to be available for all workbooks or just for a specific workbook - this determines where you store the macro. The version of Excel determines how you add a button to run it.
PS If you have Excel 2008 for Mac, this will not work.