Auto height adjust
Can anyone tell me why this doesn't work, I can get it to set height in an active cell, but when I select multiple cells it dosn't work ??
Sub test()
With ActiveSheet.Range(Cells(3, 1), Cells(16, 6)).Select
' first fit in standard manner
.Rows.AutoFit
'align the text vertically
.VerticalAlignment = xlCenter
'wrap the text
.WrapText = True
'increase the row height
.RowHeight = .RowHeight + 12
End With
Range("C20").Select
End Sub
Bookmarks