word wrap from shrink to fit
 

Got in wrong forum to start. Have now got most of it working. Am running 2000
it word wraps all but lines 2-3-4. For some reason these cell do not open up
like others. Have checked the formatting says it is what it is supposed to
be. Here is my code. Hope someone can hit me and solve it.
Thanks

With Selection
Columns("A:E").Select
' Selection.NumberFormat = "General"
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

word wrap from shrink to fit
 

How about sheet protection, merged cells, etc. Sounds like something in your
settings is preventing the wrap.

"Curt" wrote:

Got in wrong forum to start. Have now got most of it working. Am running 2000
it word wraps all but lines 2-3-4. For some reason these cell do not open up
like others. Have checked the formatting says it is what it is supposed to
be. Here is my code. Hope someone can hit me and solve it.
Thanks

With Selection
Columns("A:E").Select
' Selection.NumberFormat = "General"
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

word wrap from shrink to fit
 

Went thru all settings FYI only way I was able to correct was to delete sheet
and do a new sheet. Hope no one else faces this.
Thanks

"JLGWhiz" wrote:

How about sheet protection, merged cells, etc. Sounds like something in your
settings is preventing the wrap.

"Curt" wrote:

Got in wrong forum to start. Have now got most of it working. Am running 2000
it word wraps all but lines 2-3-4. For some reason these cell do not open up
like others. Have checked the formatting says it is what it is supposed to
be. Here is my code. Hope someone can hit me and solve it.
Thanks

With Selection
Columns("A:E").Select
' Selection.NumberFormat = "General"
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With