AutoFit Row and add 5 to row height via VBA

[slivesay]

I have a spreadsheet w/ vba coding to format the sheet via command button. It will autofit the row height, but when printing it cuts off the of some of the cells that contain a lot of wording. Is there a way to have it autofit and also add 5 more to the height via vba?

 

[Scott T]

This will auto fit row 7 then add 5 to the height. change to fit what you need.

Sub adjrowheight()
Rows(7).AutoFit
myheight = Rows(7).RowHeight
Rows(7).RowHeight = myheight + 5

End Sub

 

[Fluff]

If you are trying to do more than 1 row, you could use something like

Sub slivesay()
   Dim i As Long
   
   Range("A1").CurrentRegion.EntireRow.AutoFit
   For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
      Rows(i).RowHeight = Rows(i).RowHeight + 5
   Next i
End Sub

 

[slivesay]

Thank you both for the time and assistance. I used the coding Fluff gave and it is PERFECT! Fluff: THANK YOU AGAIN!

 

[Fluff]

Glad we could help & thanks for the feedback

 

[slivesay]

Hello Fluff!

I have a question re: where this code should be located to max the codes ability to run correctly. I have the coding placed near the end (after the other formatting code). I'm finding that it will not auto size some of the rows to the correct size. It's either not enough & cutting off words or it is too much and the row is way bigger than needed. That being said w/in my code for the 'command button' used to format my sheet, should this particular coding be placed before or after other coding? All my coding is format based - like cell font size, alignment, adding borders, deleting certain columns, deleting blank rows, find/replace text, wrap/shrink to fit certain columns, column widths, totaling columns, sorting, password protect. (You've helped me with a few of the coding in other threads)

Thank you, again, for all the time and assistance you've provided me. I truly appreciate it!

Respectfully,
slivesay

 

[Fluff]

Probably best if it goes at the very end.

 

[slivesay]

I will try that. Thank you!

 

[Fluff]

You're welcome