
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Range("a" & Target.Row + 1).EntireRow.Hidden = True Then
Target.Value = "Comprimi 10"
Range("a" & Target.Row + 1 & ":" & "a" & Target.Row + 10).EntireRow.Hidden = False
Else
Target.Value = "Scopri 10"
Range("a" & Target.Row + 1 & ":" & "a" & Target.Row + 10).EntireRow.Hidden = True
End If
End If
End Sub |
