Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Sh.Name <> "Recap" And Sh.Name <> "toto" And Target.Address = "$E$3" And Target <> "" Then Sh.Name = Target
End Sub