VBA for multiple rows

Could someone help with a macro that takes multiple selected rows and...

1) Takes the first row only, resizes the height so all the contents fit in the row (some cells may have wrap enabled).
2) Based on the height of the first row, resize all the rows based on (height of 1st row) / (number of selected rows) = (new height for each row).

I'm thinking for this to happen, I need to reselect only the first row in the selection, do #1, then reselect all the rows again and do #2. All I have so far is this.

Please Login or Register  to view this content.

Thank you!

Your script worked perfectly! It showed me that what I was trying to do wouldn't work and why! Thank you!