Sub Kringelhopser()
Dim CEL As Excel.Range
Dim tmpS As String
Dim i As Integer
For Each CEL In Worksheets("XX").Cells.SpecialCells(xlCellTypeFormulas).Cells
    If CEL.Formula Like "*$A$3*" Then
        If ActiveSheet.Name = CEL.Worksheet.Name Then
            CEL.Select
            Stop
        End If
        tmpS = "#"
        For i = 1 To Len(CEL.Formula)
            If IsNumeric(Mid(CEL.Formula, i, 1)) Then
                tmpS = tmpS & Mid(CEL.Formula, i, 1)
            Else
                tmpS = tmpS & Mid(CEL.Formula, i, 1) & "#"
            End If
        Next i
        tmpS = tmpS & "#"
        tmpS = Replace(tmpS, "#$#A#$#3#", "$A$4")
        CEL.Formula = Replace(tmpS, "#", "")
    End If
Next
End Sub