Actividad pública reciente
Ha valorado "Excelente" la respuesta
Fecha no Actualizable
Prueba Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$8" Then [b5] = Date End Sub