閏年は、調べたい年の、3月1日の前日の日にちを調べて、29日かどうかで判定する。

Sub 閏年判定()
    Dim lngYear As Long
    Dim lngFebDay As Long
    
    lngYear = Val(Range("C5").Value) '年
    
    lngFebDay = Day(DateAdd("d", -1, lngYear & "/3/1"))

    If lngFebDay = 29 Then
        Range("C9").Value = 1 '閏年
    Else
        Range("C9").ClearContents
    End If

End Sub