Macro. Dudas cambio de reemplazo de palabras

Hola experto
Acudo a usted con la intención de que me puedas explicar una macro que navegando encontré en internet y me sirve paro loq ue necesito; pero lo que no se es que hace cada tramo de código, si fuese posible y me lo explicaras paso a paso te agradecería.

PD: las que están resaltadas son las instrucciones o palabras que menos entiendo que hacen.

Sub Remplaza_todas_hojas()
Dim ws As Worksheet
Dim a As String
Dim b As String
a = InputBox("Palabra a buscar")
b = InputBox("palabra a reemplazar")
For Each ws In Worksheets
ws.Select
Call reemplazar_exclusivo(a, b)
Next
end sub
Sub reemplazar_exclusivo(busca As String, remplaza As String)
Dim mirango As Range
Dim celda As Range
'Dim busca As String
'Dim remplaza As String
Dim aux1 As String
Dim aux2 As String
Dim resbusc As String
'busca = "sueño"
'remplaza = "real"
Range("a1").Select
Set mirango = Range(ActiveCell, ActiveCell.SpecialCells(xlLastCell))
mirango.Select
For Each celda In mirango
If VarType(celda.Value) = vbString Then
y = 1
respbusc = InStr(y, celda.Value, busca, 1)
If respbusc <> 0 Then
If Len(celda.Value) = Len(busca) Then
celda.Value = remplaza
Else
If respbusc = 1 Then
aux1 = " "
Else
aux1 = Mid(celda.Value, respbusc - 1, 1)
End If
aux2 = Mid$(celda.Value, respbusc + Len(busca), 1)
If aux1 = " " And (aux2 = " " Or aux2 = "") Then celda.Value = Replace(celda.Value, busca, remplaza, 1, 1)
End If
End If
End If
Next
End Sub