VBA Buscar Reemplazar y MSGBOX

[blueangelzx]

Hola! tengo esta macro que funciona super! ahora lo que quiero es un MSGBOX en el caso que no haya ocurrencias y el caso que alla ocurrencias me diga cuantas veces cambio mi demanda? ejemplo en replace what le digo me busque la letra A, en Replace with le digo B.. puede ser no haya A en el libro.. o puede ser que si.. si es si necesito saber cuantas veces estaba A en el libro.

 

Gracias!

 

Sub FindandReplace()
    '   Find a string in every sheet and replace it with something else
    Dim x As String, y As String
    Dim ws As Worksheet
    
        x = InputBox("Replace What?", "Replace What")
        y = InputBox("Replace With?", "Replace With")
        
        For Each ws In ActiveWorkbook.Worksheets
            On Error Resume Next
                ws.Cells.Replace What:=x, replacement:=y
            On Error GoTo 0
        Next ws
        
End Sub