Add white space above and below cells

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

Many thanks, that seems to have helped

Originally Posted by :) Sixthsense :)

With ActiveSheet.Range(Cells(3, 1), Cells(16, 6)).Select is causing the error

Please Login or Register  to view this content.