snapper1969
Board Regular
- Joined
- Apr 3, 2008
- Messages
- 122
Hi,
I have the following code that formats and sizes a range.
Sub FlexFormFormat()
'
' Keyboard Shortcut: Ctrl+w
'
Columns("C:C").Select
Selection.ColumnWidth = 7
Columns("D:D").Select
Selection.ColumnWidth = 50
Range("D10:E27").Select
With Selection
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
Range("D10:E27").Select
Selection.RowHeight = 45
End Sub
Is it possible to change the row height only of the rows that need it to enable all the text in those to be visible.
Thx,
John
I have the following code that formats and sizes a range.
Sub FlexFormFormat()
'
' Keyboard Shortcut: Ctrl+w
'
Columns("C:C").Select
Selection.ColumnWidth = 7
Columns("D:D").Select
Selection.ColumnWidth = 50
Range("D10:E27").Select
With Selection
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
Range("D10:E27").Select
Selection.RowHeight = 45
End Sub
Is it possible to change the row height only of the rows that need it to enable all the text in those to be visible.
Thx,
John