Do you want the total count of times something occurs? The address of where it's occurring? As written, it seems as though your looking for a list that will be (n) instances of the same thing, which I am finding a difficult time understanding how this would be beneficial.
Test this on a copy.
Sub FindCount()
Dim wb As Workbook
Dim ws As Worksheet
Dim strFind As String
Dim c As Range
Dim rCell As Range
Dim k As Long
strFind = InputBox("Please enter the string you are looking to find.", "Please enter string")
k = 0
For Each ws In ThisWorkbook.Sheets
With ws.UsedRange
Set c = .Find(strFind, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
k = k + 1
Do
Set c = .FindNext(c)
k = k + 1
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next ws
MsgBox k - Sheets.Count
End Sub
Bookmarks