הרחבת עמודות בקוד

[אלוורדו]

הקוד הבא

Sub CH_Cols()

For Each Col In Range("A:D")
    Col.ColumnWidth = Col.ColumnWidth * 1.4
Next
End Sub

מרחיב את העמודות A עד D ב 40%.
אבל בפועל הלולאה היא אינסופית... הוא חוזר ומרחיב שוב ושוב..., יש פה טעות שאינני יודע מהי.
אודה לעזרה

 

[מיכאל אבידן]

הקוד הבא

Sub CH_Cols()
For Each Col In Range("A:D")
    Col.ColumnWidth = Col.ColumnWidth * 1.4
Next
End Sub

מרחיב את העמודות A עד D ב 40%.
אבל בפועל הלולאה היא אינסופית... הוא חוזר ומרחיב שוב ושוב..., יש פה טעות שאינני יודע מהי.
אודה לעזרה

‏

For Each Col In Columns("A:D")

‏

 

[אלוורדו]

תודה רבה !!