Wrap text on all columns from D and higher

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.

Sub 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

thanks

How about:

Please Login or Register  to view this content.

Good job! It is the correct change.