Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Est As Boolean
If Intersect(Target, Range("A1,B3:B8")) Is Nothing Then Exit Sub
If Target.Address = "$A$1" Then
Sheets("Summary").Activate
Else
For Each Sh In Sheets
If Sh.Name <> "Summary" And Sh.Name = Target Then
Sh.[A1] = "Summary"
Est = True
Sh.Activate
Exit Sub
End If
Next
If Est = False Then Target = ""
End If
End Sub