Autosize Row Height using VB code

[j2mbs]

Hello everyone

I am currently trying to autosize the row height of a range of cells using the VB code I have entered below. The code works great but when I print my document some of the text in the cells is slightly cut off. I was hoping someone could be so kind as to show me how to modify my code below to add a buffer of say 5 to the already autosized row height. I've tried a few different ways based on other postings on the net and have been unsuccessful in doing so.

Thank you very much in advance!

P.S. I am new to this forum so I apologize if the way I posted my code is incorrect.

Private Sub Worksheet_Activate()
Application.EnableEvents = False
Me.Rows("6:1000").AutoFit
Application.EnableEvents = True
End Sub

 

[Vtikhon]

Make sure the "Zoom" is set at 100%. This might help.
Also, make sure you are using standard font, like calibri or arial.

 

[j2mbs]

Thank you very much for your suggestion but unfortunately I am still having trouble with some data being cut off.

I will continue to cross my fingers in hopes that someone can modify my simple code in my previous post.

 

[Vtikhon]

Would you be able to upload the file you are working on so I could look at it?