VBA to Group and Hide Multiple Rows

[SanjayGMusafir]

I want to group and hide multiple selected rows. But the code I have written Group & Hide only one row.

There must be some technical mistake in the code.

Please Help

rows(Selection.Row).Select
    
Selection.rows.Group
    
ActiveSheet.Outline.ShowLevels RowLevels:=1

 

[Ramballah]

Sub okokok()
    Selection.EntireRow.Hidden = True
End Sub

this works for me. if i just select my rows and press the macrobutton it hides them all.

 

[SanjayGMusafir]

Thanks Ramballah for quick response.

I improvised taking idea from your code and that worked perfectly for me.

I just removed one line from my code and final code looked like this -

Selection.rows.Group
    
ActiveSheet.Outline.ShowLevels RowLevels:=1

Sub okokok()
    Selection.EntireRow.Hidden = True
End Sub

this works for me. if i just select my rows and press the macrobutton it hides them all.

 

[Ramballah]

Thanks Ramballah for quick response.

I improvised taking idea from your code and that worked perfectly for me.

I just removed one line from my code and final code looked like this -

Selection.rows.Group
    
ActiveSheet.Outline.ShowLevels RowLevels:=1

Well if it works it works! Glad to help