Try something like this (a little difficult when you don't post the rest of your code): $oWorkbook.ActiveSheet.ShowLevels.RowLevels=2