ciao

ttenzione che se togli 1 a 01/03/1900 ottieni 29/92/1900 ma il 1900 non era bisestile

Userei la definizione di anno bisestile (copi e incollo)

è divisibile per 4 e anche per 100, se finisce per 00 divisibile per 400

LukeReds ha scritto:

più cerco definizioni di anno bisestile e meno mi è chiaro il concetto...)

 

Il concetto è semplice, basta leggere il mio post precedente #52884

Prova in questo modo

`Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rCell As Range, ws As Worksheet
    Dim j As Integer, x As Integer, ann As Integer
  
    If Target.Address = "$E$17" Then
        For j = 1 To 12
            Set ws = ThisWorkbook.Worksheets(CStr(j))
            For Each rCell In ws.Range("C11:C41")
                rCell.NumberFormat = "d ddd"
                If Right(rCell.Text, 3) = "gio" Then rCell.NumberFormat = "d dddv"
            Next rCell
        Next j
    
      Set ws = Worksheets("Planner")
    
      For x = 3 To 58 Step 5
          For j = 3 To 33
              ws.Cells(x, j).NumberFormat = "ddd"
              If ws.Cells(x, j).Text = "gio" Then ws.Cells(x, j).NumberFormat = "dddv"
          Next j
      Next x
    'End If
    'Set ws = Nothing
    'Set rCell = Nothing
 
    Set ws = Worksheets("2")
    ann = Year(Sheets("Dati").Range("E17"))
    If (ann Mod 4) = 0 And ((ann Mod 100) <> 0 Or (ann Mod 400) = 0) Then
             ws.Rows("38:38").EntireRow.Hidden = True
         Else
             ws.Rows("38:38").EntireRow.Hidden = False
    End If
    Set ws = Nothing
    Set rCell = Nothing
End If
End Sub`

Sono contento che tu abbia risolto   

Una curiosità, quanto del codice del primo post è tuo?