This routine will search in a specified range for 'Total'. Probably indeed a 'bug' or malfunctioning.
Sub test()
Dim rng As Range, result As Range
Dim firstaddress As String, vmessage As String
Dim lrow As Long
lrow = Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row
Set rng = Worksheets(1).Range("A1:A" & lrow)
vmessage = "Item 'Total' was found on rows :" & vbCrLf
With rng
Set result = .Find("Total", LookIn:=xlValues)
If Not result Is Nothing Then
firstaddress = result.Address
Do
vmessage = vmessage & "- " & result.Row & vbCrLf
Set result = .FindNext(result)
Loop While Not result Is Nothing And result.Address <> firstaddress
End If
End With
MsgBox vmessage, vbInformation, "Requested info ..."
End Sub
Charlize