Cambiar datos de macro en Modulo con referncia de una celda ?

Abraham Valencia me ha facilitado esta macro, para cambiar datos de una macro dentro de un modulo y va ok

Sub Cambiar_1()
Dim VBModulo As CodeModule
Dim LineasCod As Integer, x As Integer
Dim Cadena As String
Set VBModulo = Workbooks("CAMBIAR RUTAS.xlsm").VBProject.VBComponents("Módulo4").CodeModule
Let LineasCod = VBModulo.CountOfLines
For x = 1 To LineasCod
    Let Cadena = VBModulo.Lines(x, 1)
    If InStr(1, Cadena, "Nº6") > 0 Then
        Let Cadena = Application.WorksheetFunction.Substitute(Cadena, "Nº6", "Nº5")
        VBModulo.replaceLine (x), Cadena
    ElseIf InStr(1, Cadena, "Nº7") > 0 Then
        Let Cadena = Application.WorksheetFunction.Substitute(Cadena, "Nº7", "Nº6")
        VBModulo.replaceLine (x), Cadena
    End If
Next x
End Sub

Los datos a cambiar Nº6 por Nº5 y Nº7 por Nº7 por Nº6 desde una celda de una hoja, me aconsejo esto

Let Cadena = Application.WorksheetFunction.Substitute(Cadena, Worksheets("nombrehoja").Range("A3"), Worksheets("nombrehoja").Range("B3"))

Estoy intentado acoplarla dentro de la macro de arriba, pero no soy capaz ???