Laufzeitfehler 5
28.08.2018 11:01:01
Georg
der Code gibt mir den Laufzeitfehler 5 bei
.Sheets(i).....
aus. Ich komme nicht drauf. Die Blätter sollen umbenannt werden, mit einer Verknüpfung aus zwei Zellen, die Text enthalten.
Danke für die Tipps
Sub RegRename()
Dim i As Long
Dim wb As Workbook
Set wb = ThisWorkbook
With wb
For i = 1 To 12
.Sheets(i).Name = .Worksheets(i).Cells("B4" & "B3").Text
Next i
End With
End Sub