Hide columns with macros

[asdvender]

I love this place. The more questions I have answers, the more dependent I become because the more I realize is possible, that I can't do.

This time, I'm trying to hide columns based on values on certain cell values.

Here's the macro I'm using...

Sub HideEmptyColumns()
 Dim cell     As Range
  For Each cell In ActiveSheet.Range("AL155:EZ155")
    If cell.End(xlDown).Row = Rows.Count Then
    cell.EntireColumn.Hidden = True
    End If
 Next cell
End Sub

I WANT the macro to look at cells and if the cell is empty hide the column...
If AL155 is empty, hide Column AL
...
If EZ155 is empty, hide Column EZ

When I run this macro though, it just hides all columns from AL to EZ.

Do I have to create new macros for each column? or is it possible with a single macro?

Thanks again guys!