Set new row height based on current height
 

Many posts have discussed the fact that text in cells often does not
print the exactly as it looks when viewed on screen.

I have also come across this problem. Consider a a simple worksheet
with two columns. Column A contains cells where users can choose the
"Subject" from a drop down list. Column B is blank - users can
provide a textual description of their subject in that cell. It is
formatted to "Wrap text", so if users want to write 10 lines, the row
height will adjust automatically. It looks fine on screen, but when I
want to print, the top half and bottom half of the first and last
lines are often cut off.

To solve this problem, I would like to run a macro that determines the
current row height (once users have entered their comments) and then
adds, 5 say, to that height so that all text will fit neatly when
printed. eg: If, after entering comments, the row height is 31.25, I
would like to automatically adjust the row height to 36.25.

Does anyone know the code that would serve this purpose?

TIA
neil

Set new row height based on current height
 

something like :-

ActiveCell.rowheight = ActiveCell.rowheight +

--
Message posted from http://www.ExcelForum.com

Set new row height based on current height
 

thanks - exactly what I needed

BrianB wrote in message ...
something like :-

ActiveCell.rowheight = ActiveCell.rowheight + 5


---
Message posted from http://www.ExcelForum.com/