Question

I have a worksheet for keeping track of time spent on different tasks – each workday is a column.

When each the week finishes, I would like to hide those columns (6, including totals) and keep working across.

Is there a way to take range from the 2nd to 6th visble column and hide it?

Ie, the first week I hide is columns B:G, then it’s H:M, then N:S etc

Answer 1

This keeps column A showing and hides the next 6 visible columns:

With ActiveSheet
    .Range(.Cells(1, 2), .Cells(1, .Columns.Count)).SpecialCells(xlCellTypeVisible).Range("A:F").EntireColumn.Hidden = True
End With