Guten Abend

Habe folgenden Code damit fixiere ich die Spaltenbreite auf den Wert 7 und wenn die Spaltenbreite verändert wird stellt sich die Spaltenbreite wieder automatisch auf den Wert 7

Private Sub Worksheet_Activate()
With ActiveSheet
If Columns("O").ColumnWidth <> 7 Then Columns("O").ColumnWidth = 7
End With
End Sub

Nun meine Frage wie bekomme ich hin das hier mehrere Spalten gleichzeitig korrigiert werden, habe es mit

Private Sub Worksheet_Activate()
With ActiveSheet
If Columns("O:Q").ColumnWidth <> 7 Then Columns("O:Q").ColumnWidth = 7
End With
End Sub

versucht - funktioniert leider nicht wenn nur Spalte O eine andere Spaltenbreite hat.

Weitere Frage kann man den Code so anpassen das es nicht bei Aktivierung der Tabelle sonden dann passiert wenn eine der drei Spalten hier die Breite geändert wird.

Danke für euren Input.

Hagen