This asks for a value/string to search for and finds all of them on all sheets!
It searches column "A" , you can change this below: Just change the range:
With S.Range("A1:A65536")
This is the range to search on each sheet.
The "Dup" message will be put in Column "B" next to the Dup value, even the first occurance gets a message if it also has a dup. You can chenge the column the "Dup" message gets loged to:
ActiveCell.Offset(0, 1).Value = "Dup"
by changing the columns to move Right of the found value in the offset above in the code below!
Sub myDups()
'Standard Module Code!
'Find All Duplicates on All Sheets!
Dim Message, Title, Default, SearchString
Message = "Enter your search string!" ' Set prompt.
Title = "Find ? On all sheets!" ' Set title.
Default = "" ' Set default.
' Display message, title, and default value.
SearchString = InputBox(Message, Title, Default)
Set S = Sheets.Application
myNext:
For Each S In Application.Sheets
With S.Range("A1:A65536")
Set F = .Find(SearchString, MatchCase:=True, LookAt:=xlWhole, LookIn:=xlValues)
If Not F Is Nothing Then
firstAddress = F.Address
Do
S.Select
F.Select
ActiveCell.Offset(0, 1).Value = "Dup"
F.Value = SearchString
Set F = .FindNext(F)
Loop While Not F Is Nothing And F.Address <> firstAddress
End If
End With
Next S
End Sub