in-cell that hide/show rows - vba

Hi everyone,  I am trying to create a macro where I have a clickable in-cell that can show/hide specific rows. By default, all rows were hidden, it only