Add white space between rows

Willby · #1 02-07-2019, 03:34 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
white letter instead off space	merletcollege	Word	3	09-27-2018 01:19 AM
Eliminate weird white space	puff	Word	7	03-12-2018 12:51 AM
Unwanted white space	sassiebrat	Word	2	10-03-2016 08:53 PM
Removed white space within same page.	johnatanasoff	Word	7	01-04-2016 07:44 AM
white space	seeker62	Word	12	07-16-2013 09:54 PM