Find and Replace Advanced

Sub AdvancedFindReplace()
    Dim ws As Worksheet
    Dim findText As String, replaceText As String
    Dim replaceCount As Long

    Set ws = ActiveSheet

    findText = InputBox("Enter text to find:")
    If findText = "" Then Exit Sub

    replaceText = InputBox("Enter replacement text:")

    ' Perform find and replace with options
    With ws.UsedRange
        replaceCount = 0
        For Each cell In .Cells
            If InStr(cell.Value, findText) > 0 Then
                cell.Value = Replace(cell.Value, findText, replaceText)
                replaceCount = replaceCount + 1
            End If
        Next cell
    End With

    MsgBox "Replaced " & replaceCount & " occurrences of \"" & findText & "\""
End Sub