Expand row when cell selected; shrink when deselected

Disclaimer: I'm brand new to VBA and I don't know the language... or how to do almost anything. My apologies.


I'm creating an FAQ for staff who answer the phone, and some of the answers (in column C) are quite long. To make the spreadsheet easy to navigate quickly, I would like all rows to have a height of 30 when they are not selected. However, when any cell in a row is selected, that row should expand to fit all content in the cell in column C. (All of the cells have wrapped text.) Once an expanded row is no longer selected, it should snap back to height 30.

In other words...

• Deselected rows: height = 30
• Any row with a selected cell: height = autofit
• Row no longer selected: height = 30

Please note that I do not want to use text boxes, because I've also got a search filter running and the content in column C needs to be searchable.


Thanks in advance for sharing your wisdom.

Thanks for the prompt reply, Logit! But, uh, nothing is happening.

So I opened up Book1 - Sheet1 (Code) in VBA. I pasted your code and edited the range:

Please Login or Register  to view this content.

I went back to Sheet 1 and set the height for all rows to 30. And then I tried clicking around, but no matter where I click, nothing expands.

This could be a really stupid question, but am I supposed to save something somewhere to make the macro start running?

Tsjallie, this is beautiful, and it works perfectly. Thank you so much!

Everything is working perfectly! This is most excellent. Some day when I have time I'll have to study up on the syntax so I'll have a better idea of why it's working.

Try running the attachment in post #2.

Glad you have it all sorted out !

Cheers.