VBA on workbook open - Show hidden columns if cell contains date < now

[B-Man]

I have created a workbook and pre-filled some columns with data but want it hidden unless it hits the year it numbered as.
i have row 2 as the headers with the dates (albeit merged) and row 4 = row 2 dates (in each cell rather than a merged cell) for each column (un-merged)
I have hidden columns H:AM
on workbook open if those columns are older than todays date i want to unhide them.

i currently use this below but get "xCell.Value=empty" causing the vba to break. what am i doing wrong?

Private Sub Workbook_Open()

Dim xCell As Range
    For Each xCell In Range("H4:AM4")
        If xCell.Value < Date Then
            xCell.EntireColumn.Show = True
        End If
    Next
End Sub

 

[Fluff]

Sounds like some of the cells from H4 to AM4 do not contain dates.
What do you want to do if the cell is empty?

 

[B-Man]

Sounds like some of the cells from H4 to AM4 do not contain dates.
What do you want to do if the cell is empty?

I added dates to the blank cells and now i get "run time error 424 object required"

 

[Fluff]

It should be .Hidden = False rather than .Show = True

 

[B-Man]

Ok that sort of works...
It has unhidden all the columns.
not just the ones with the date < Date.
The date is 1/1/2020, 1/1/2021 etc. But formatted to show just the year. The cells in row 4 are a formula ie c4=c2 d4=c2 e4=c2

 

[Fluff]

Are your dates real dates, or text?

 

[B-Man]

My dates are real dates with custom formatting yyyy
The cells refer to that so end up being 2020 not 1/1/2020

 

[Fluff]

If H4:AM4 all have valid dates, I'm not sure why it unhides every column, as it doesn't do that for me, regardless of how I format the dates.

 

[B-Man]

I checked it and the formatting had reverted to general. Changed it back to dates and works a treat. Thanks.

 

[Fluff]

You're welcome & thanks for the feedback.