Hide Column if Range is Blank

[leeksleeks]

Hi,

I am wanting to hide a column if there is no text in a range. My range is B4:AA27 and I want it to treat it on a column by column basis (B4:B27 and then C4:C27 etc). I have found a few variations online but nothing that I have got to work so far.

Thanks!

 

[gallen]

This does exactly as you ask though could be made more flexible:

Sub HideBlankColumns()

    Dim iFirstCol As Integer, iLastCol As Integer, i As Integer
    
    'variables to hold the first and last column numbers
    iFirstCol = Range("B4").Column
    iLastCol = Range("AA4").Column
    
    
    'count backwards through columns
    For i = iLastCol To iFirstCol Step -1
        'if all cells are blank, hide the column
        If WorksheetFunction.CountA(Range(Cells(4, i), Cells(27, i))) = 0 Then
           Columns(i).EntireColumn.Hidden = True
        End If
    Next i
    
End Sub

 

[leeksleeks]

That works perfectly. Thank you VERY much

 

[gallen]

You're welcome. Happy it works.