VBA Code aus Datei ausführen

Sub Formeln_auflisten()
Dim lngZ As Long
Dim wsBlatt As Worksheet
Dim rngFormeln As Range, rngZelle As Range
lngZ = 1
For Each wsBlatt In Worksheets
On Error Resume Next
Set rngFormeln = Nothing
Set rngFormeln = wsBlatt.Range("A1:C22").Cells.SpecialCells(xlCellTypeFormulas)
If Not rngFormeln Is Nothing Then
For Each rngZelle In rngFormeln
lngZ = lngZ + 1
Cells(lngZ, 10) = wsBlatt.CodeName
Cells(lngZ, 11) = rngZelle.Address(0, 0)
Cells(lngZ, 12) = "'" & rngZelle.FormulaLocal
Cells(lngZ, 13) = "Sheets(" & Right(wsBlatt.CodeName, Len(wsBlatt.CodeName) - 7) _
& ").Range(""" & rngZelle.Address(0, 0) & """).FormulaLocal = """ & Replace(rngZelle.FormulaLocal, """", """""") & """"
Next
End If
Next
If lngZ = 1 Then MsgBox "Keine Formeln im Bereich"
End Sub