I have been trying to find a macro that changes all columns wider than 50, to 50, and wrap text.
I have recorded a macro, but don't know how to start it from column D and only to change columns wider than 50.
Here's my starting point, but it's just a simple recorded macro.
thanksSub Macro1()
'
' Macro1 Macro
'
'
Selection.ColumnWidth = 50
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Bookmarks