ExcelBanter - formating cells with procedure

Curt, it seems like I ended up using "xlVAlignTop" once before when I had
that problem. The numerical code is " -4160" , you might try that also. I
can't think of anything else at present.

"Curt" wrote:

built the following with macro builder in excel. Does not do as it says. Text
starts at bottom not top. Overruns cell with text. Row & column work OK. Is
there a certain order that must be used?
Thanks to every one
Curt

Sheets("Desc").Select
Range("A2").Select
Rows("2:2").RowHeight = 78
Columns("A:A").ColumnWidth = 39
Selection.NumberFormat = "@"
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
With .Validation
' .Delete
.Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
Operator:=xlLessEqual, Formula1:="234"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = "Description"
.ErrorTitle = "To Much"
.InputMessage = _
"Limited to 234 characters & spaces. Beyond or below cell will not
print"
.ErrorMessage = "Below cell won't print"
.ShowInput = True
.ShowError = True
End With
End With