UpdateLinks:=3. Wo einsetzen bei Makro:?

Sub SaldoInJan()
Dim i As Integer, j As Integer, arrWkb
Dim Blatt As Object
arrWkb = Array("C:\Rab\RAB-Jahrwechsel\RabVeraMg.xls", "C:\Rab\RAB-Jahrwechsel\RabVeraRy.xls", _
_
"C:\Rab\RAB-Jahrwechsel\RabVeraVie.xls", "C:\Rab\RAB-Jahrwechsel\RAB-Jahrwechsel\RabVeraWi.xls" _
)
With Application
.ScreenUpdating = True
.Calculation = xlCalculationManual
End With
For j = 0 To 3
Workbooks.Open Filename:=arrWkb(j)
On Error Resume Next
For Each Blatt In Worksheets
With Blatt
For i = 3 To 13 Step 2
.Cells(15, i).Copy .Cells(47, i)
.Cells(15, i).Value = ""         'löscht den Inhalt der Zelle nach dem kopieren
Next
End With
Next Blatt
'Workbooks(arrWkb(j)).Close True
Next j
With Application
.ScreenUpdating = False
.Calculation = xlCalculationAutomatic
End With
End Sub