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?
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
--- Best wishes, HansV https://www.eileenslounge.com
5 people found this reply helpful
·
Was this reply helpful?
Sorry this didn't help.
Great! Thanks for your feedback.
How satisfied are you with this reply?
Thanks for your feedback, it helps us improve the site.