Problema con Macro

Hola Pau,

si la fecha actual supera a la de la lista oculta la hoja, el problema es
que si la hoja esta renombrada por ejemplo 2003 no funciona, me interesa
tener las hojas renombras en el año.

No se si te he entendido bien y es esto lo que buscas:

Sub ocultaporfechas()
Dim mifecha As Date, mihoja As Worksheet
mifecha = Date
Sheets("AVISO").Range("A24").Select
On Error Resume Next
While ActiveCell <> ""
If mifecha >= ActiveCell.Offset(0, 1).Value Then
On Error Resume Next
Set mihoja = Sheets(ActiveCell.Value)
If mihoja Is Nothing Then _
Set mihoja = Sheets( _
Format(ActiveCell.Offset(0, 1).Value, "YYYY"))
If Not mihoja Is Nothing Then _
mihoja.Visible = xlVeryHidden
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub

Saludos,
KL