Expanded and collapsed the rows by toggle "+" or "-" sign on left of the text

I think something like this:

Please Login or Register  to view this content.

Hello,
It seems there is some issue with the codes.
1. I copied the code to sheet1,
2. Click "-" in A6, rows 7 to 11 collapes, but the "-" did not change to "+".
3. Click "-" in A6 to expand the rows, nothing happen.
4. Click A12, it works the same exact ways,
5. Click A17 to collapes the rows, it did not work.

Can you plesae or anyone take a look.

Thanks

Please Login or Register  to view this content.

Hi,
Thanks for trying again. I click A6 and A12, the rows collapsed, but I click again, the hidden rows did
not show up immediately. If I wait 30 seconds, the rows may unhid. Some case the rows did not unhide.
The third one A16 does not works either ways. There is pop-up message "run-time error '1004': Application
-defined or object-defined error. ". Is there way to change the sign, after the cell is bewteen toggleed?

Thanks

Hi Rocky,
try it

Please Login or Register  to view this content.

Hi nilem,
The VBA works seamless, it even changes the sign. Thanks again.

Hi yodlugar,
Even I am not using yours. I am very appreicate your time and effort. I am sure I will back with other helps while
I am slowing learn VBA starting from first grade. Thanks again.