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