Hide columns with macros

See if this works for you.

Sub HideEmptyColumns()
    Dim cell As Range
    For Each cell In ActiveSheet.Range("BB26:IA26")
        cell.EntireColumn.Hidden = (Len(cell.Text) = 0 _
            And Len(cell.Offset(26).Text) = 0)
    Next cell
End Sub

HTH

Jason