Modul Spaltenreite Fehler beim Laden

Hallo
Ich habe seit kurzen die Fehlermeldung, das die ColumnWidth-Eigenschaft des Range Objektes nicht festgelegt werden kann.
Das seltsame an der Sache ist, das an meinem Home-PC mit Win/ und Excel 2016 alles anstandslos funktioniert, nur in der Arbeit bei Win 10 und Excel 365 nicht. Und seltsamer ist, das es bis gestern bei beiden ohne Probleme lief.
Weiß jemand den Grund dafür oder hatte ähnliche Erfahrungen und dafür Lösungen gefunden?
Hier einmal der Code für das Modul mod_Spaltenbreite

Sub SpaltenBreite()
' für die Sheets 1 und 2 ... feste Spaltenbreiten
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim aSh, i&: aSh = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
For i = LBound(aSh) To UBound(aSh)
With Wb.Worksheets(aSh(i))
.Unprotect
.Columns("B:C").ColumnWidth = 4
.Columns("D:D").ColumnWidth = 8
.Columns("E:O").ColumnWidth = 6
.Columns("P:S").ColumnWidth = 4
.Columns("T:X").ColumnWidth = 6
.Columns("Y:Y").ColumnWidth = 11.7
.Columns("Z:Z").ColumnWidth = 41
.Columns("AA:AC").ColumnWidth = 10
.Columns("AD:AE").ColumnWidth = 15
.Columns("AF:AF").ColumnWidth = 35
.Columns("AG:AG").ColumnWidth = 11
.Columns("AH:AJ").ColumnWidth = 10
.Columns("AK:AK").ColumnWidth = 40
.Protect
End With
Next i
Erase aSh: Set Wb = Nothing
End Sub

Anzeige