Hi Kevin,

Now yes this command shows the data at level 2
ws.Outline.ShowLevels RowLevels:=2

but if you click on level 3, the other levels below level 3 are also
displayed. Thus the view I'm after is that if a user clicks on level
3, level 4 levels ? and ? still remain collapsed.

I am not sure if this fits to your problem:

To workaround I created a dropdownmenu (combobox whatever this is
called in english) where the user should select the level and linked it
to a makro that reads the linked cell of the dropdown, eg.

ws.Outline.ShowLevels RowLevels:=Range("selectedLevel").value

to avoid any trouble I also hide the grouping column totally, so only
the dropdown does the job.

arno