Row Heights

Selection.RowHeight = 10 
Rows("2:4").RowHeight = 16


Sub DisplayRowHeightsColumnWidths() 
Dim lrowno As Long
Dim iColNo As Integer
Dim scolchar As String

    For lrowno = 4 To 16
        Debug.Print lrowno & " - " & Rows(lrowno & ":" & lrowno).RowHeight
    Next lrowno

    For iColNo = 4 To 26
        scolchar = Col_Letter(iColNo)
        Debug.Print scolchar & " - " & Columns(scolchar & ":" & scolchar).ColumnWidth
    Next iColNo
End Sub

© 2020 Better Solutions Limited. All Rights Reserved. © 2020 Better Solutions Limited TopPrevNext