Máximos colaboradores

Private Sub Worksheet_Change(ByVal Objetivo As Range) With Hoja1 If Not Intersect(Objetivo, .Range("E3")) Is Nothing Then Application.EnableEvents = False nuevoValor = Objetivo ultimaFila = .Cells(.Rows.Count, "D").End(xlUp).Row For i = 4 To ultimaFila textoActual = .Cells(i, "D") posicionPunto = InStr(1, textoActual, ".") If posicionPunto > 0 Then textoDespuesPunto = Mid(textoActual, posicionPunto + 1) .Cells(i, "D") = nuevoValor & "." & textoDespuesPunto End If nuevoValor = nuevoValor + 1 Next i Application.EnableEvents = True End If End With End Sub Cambio automatico de numeros.xlsm