Hier ist die Lösung
Peter
Vielen Dank für eure Hilfe. Die vielen Gedanken stützen haben mich erst darauf gebracht, dass ich im völlig falschen Zug sass.
Danke
Mit der Specialcells Methode wurden im Range nur meine Formeln abgelaufen, ohne grosse Umschreibungen.
Option Explicit
Sub Formula()
Dim rng As Range, Cell As Range
Dim j As Long
Dim mstrFileName As String
mstrFileName = "YourName"
Set rng = ActiveSheet.UsedRange.Specialcells(xlCellTypeFormulas)
Range("B3").Select
For Each Cell In rng
j = j + 2
Cell.FormulaR1C1 = "='[" & mstrFileName & ".xls" & "]Sheet1'!R1C" & j
Next
End Sub
Vielen Dank. Peter