Simplifying VBA

[bptaw]

I am trying to understand VBA better and want help to simplify the following VBA I use to hide and reveal rows and columns. A sample is shown below:
Case Is = "Fibre": Rows("40:45").EntireRow.Hidden = True
Rows("46:52").EntireRow.Hidden = False
Sheets("Summary Page").Columns("B:D").EntireColumn.Hidden = False
Sheets("Summary Page").Columns("K:L").EntireColumn.Hidden = False
Sheets("Summary Page").Columns("E:J").EntireColumn.Hidden = True
Sheets("Summary Page").Columns("M:S").EntireColumn.Hidden = True
Sheets("Summary Page").Rows("2,4").EntireRow.Hidden = True
Sheets("Summary Page").Rows("4").EntireRow.Hidden = True
Sheets("Summary Page").Rows("3").EntireRow.Hidden = False

Any help appreciated

 

[kevin9999]

You can group certain statements together, which I guess is simplifying your code a bit, such as:

With Worksheets("Summary Page")
    .Range("B:D,K:L").EntireColumn.Hidden = False
    .Range("E:J,M:S").EntireColumn.Hidden = True
    .Rows("2:4").EntireRow.Hidden = True
    .Rows(3).Hidden = False
End With

 

[bptaw]

Thanks

 

[kevin9999]

Thanks

You're welcome