Hide columns with macros

Sub HideEmptyColumns()
    Dim cell As Range
    
    For Each cell In ActiveSheet.Range("AL155:EZ155")
        cell.EntireColumn.Hidden = Len(cell.Text) = 0
    Next cell
End Sub