range.columnwidth Error 1004

ich wollte den Spalten A und B jeweils 50% der gesamten Breite
zuordnen, doch es folgt besagter Fehler 1004.
Woran könnte das liegen?
Das Makro wird nicht per Schaltfläche und Klick gestartet, sondern per Menüaufruf (EXTRAS/Makro/Makros.../Ausführen)
Somit half mir der Tipp von Hans W. Herber auch nicht weiter,
Archiv: TakeFocusOnClick https://www.herber.de/forum/archiv/0to4/t1734.htm

Sub Test()
With ActiveSheet
.Range("A:B").ColumnWidth = (Windows(1).UsableWidth / 2) - 1
End With
End Sub

Danke für Hilfe.