Formula to format the cell? (so text gets enough space)

Hello.

Im using a sub that copies the sheet, then deletes blank rows. The only problem i have is... the Cell is often too small for the text. You can easily fix this manualy in Excel just by pressing the edge of sheet number twice, but i want it done automaticaly. Could you please help me?

PS. The width of cell remains the same, just the height needs the fix

Attachment 30344

you Right-Click on the Cell.
Format Cells->Alignment->Wrap Text.

Quote:

---

Originally Posted by arnelgp

you Right-Click on the Cell.
Format Cells->Alignment->Wrap Text.

---

Im sorry but it doesnt work the way i need it to work. I have many columns in my sheet, and unchecking Wrap makes half of my cell dissapear (due to text in collumn on the right of it). Checking it results in a problem described in this post, which i need to fix.

I cannot pre-format the cells, as its a Generator (you put a code in a cell, Excel gives a result, the letters are always various. It can be a short word, or several long words).
Attached photo was the way i want it to work, not a part of my work

Maybe:

Code:

---

Cells.EntireRow.AutoFit

---

Thank you !!!