Ocultar celdas en año no bisiesto

Maku · el 8 de abril

Buenas tardes, pretendo ocultar las celdas AF8:AF10, o que el texto resulte del mismo color que el fondo, en el mes de febrero de los años no bisiestos.
He intentado esto... pero me da error. ¿Me podéis orientar?

Sub VerificarAnioBisiesto()
    Dim año As Integer
    
    ' Asignar el valor de la celda B2 a la variable año
    año = Range("B2").Value
    
    ' Comprobar si el año es bisiesto
    If (año Mod 4 = 0 And año Mod 100 <> 0) Or (año Mod 400 = 0) Then
        ' Hacer visibles CELDAS
        Range("AF8:AF10").EntireColumn.Hidden = False
    Else
        ' Si no es bisiesto, ocultar CELDAS
        Range("AF8:AF10").Fuente.Color = RGB(255, 255, 255)
    End If
End Sub

Libro1.xlsmFetching info...