Hi moonhk,

If you try..

myRange.Rows(lastRow).Ungroup

that should work.
--
Anant


"moonhk" wrote:

Hi Reader
Do you know how to ungroup row ? My Workbook have 4 worksheet,each
worksheet have been groupd how to ungroup row using VBA ?

I try below coding , just ungroup one group.
Worksheets("SH-451455").Activate
Set myRange = ActiveCell.CurrentRegion
lastRow = myRange.Rows.Count
myRange.Rows(lastRow).ShowDetail = True

Moonhk