View Single Post
 
Old 02-07-2019, 03:34 AM
Willby Willby is offline Windows 10 Office 2016
Novice
 
Join Date: Feb 2019
Posts: 1
Willby is on a distinguished road
Default Add white space between rows

I don't know of any native way to add white space between rows, but this simple macro does the job. It prompts the user to input a value for the extra space (which is created by increasing the row height of each row by a certain amount greater than the 'auotfitted' height):

Code:
#Sub RowHeight()

Dim rngRows, rngCell As Range
Dim h, n As Single

n = InputBox("Space to add:", "Add space between rows", 15)

Set rngRows = Range(Range("B2"), Range("B2").End(xlDown))
rngRows.Rows.AutoFit

For Each rngCell In rngRows
    h = rngCell.Height
    rngCell.RowHeight = h + n
Next


 End Sub#
Edit Mod : related to https://www.msofficeforums.com/excel...text-cell.html

Last edited by Pecoflyer; 02-08-2019 at 08:02 AM.
Reply With Quote