Hi Greg, the code is working great but could you please check the line that I added. I added case 10 to represent the 10th generation but when I ran the macro, the font color remained black instead of color no. 30. Also, the auto numbering and auto font painting were lost when I added new members, see 1.2, 1.2.1 and 1.2.1.1. I thought that the short cut key to run a macro is F5 but it jumped to GoTo when pressed. I am so ignorant of vba/macro. Thank you.
|