Auto fit Row Height is not sufficient

The Auto fit Row Height is not sufficient, to me the borders are tightly fitting, I find this annoying and spend unnecessary time trying to increase the height size, so that I get a neat empty margin / border round the text / content in each cell .

How do I (hopefully a default setting) format Excel to keep Auto Fit Row Height at (Auto Fit Row Height + 15), or is there someway I could have some Macro to ensure this view in my Workbooks and Worksheets?

Thanks
 

Question Info


Last updated April 4, 2019 Views 5,253 Applies to:
Answer
Answer

There is no built-in setting for this. You could run the following macro instead of selecting Format | AutoFit Row Height:

 

Sub AutoFitPlus()
  Dim rng As Range
  Selection.EntireRow.AutoFit
  For Each rng In Selection.Rows
    rng.RowHeight = rng.RowHeight + 15
  Next rng
End Sub

 

This will only look nice if vertical alignment is Top or Center instead of the default Bottom. You could add that to the macro:

 

Sub AutoFitPlus()
  Dim rng As Range
  Selection.EntireRow.AutoFit
  For Each rng In Selection.Rows
    rng.RowHeight = rng.RowHeight + 15
  Next rng
  Selection.VerticalAlignment = xlCenter
End Sub

---
Kind regards, HansV
www.eileenslounge.com

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.