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.xlsm