Programmatically group and ungroup rows based on the active cell

[USAMax]

I have a worksheet that is based on properties (Real Estate) and all the rows for that property are grouped and hidden. I already have the macro that I run when the rows or columns are ungrouped but I would like to ungroup them programmatically.

If the active cell is on column A (column with the street address) I want it to unhide the rows starting with the row below the active cell.

Current example: Rows 709 through 903 are all grouped and hidden. Cell 708 has the property address. I want to select cell 708 and run the macro, if the cells are grouped/hidden the macro will ungroup/unhide the rows associated with the property. If the cells are already ungrouped/unhidden it should do nothing.

 

[onlyadrafter]

Hello,

This is a bit clunky and cumbersome (maybe someone can improve on it), but try

Sub UNGROUP_UNHIDE()
    Selection.Offset(1, 0).Select
    If Rows(ActiveCell.Row).Hidden = False Then Exit Sub
    MY_START = ActiveCell.Row
    Do Until Rows(ActiveCell.Row).EntireRow.Hidden = False
        Rows(ActiveCell.Row).Hidden = False
        Selection.Offset(1, 0).Select
    Loop
    MY_END = ActiveCell.Row
    Rows(MY_START & ":" & MY_END - 1).Rows.Ungroup
End Sub