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