Replace in a sheet and not the entire workbook

[Charlize]

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