
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.EntireRow.Delete Cancel = True End Sub |
sub cancella()
range("A1:A50").EntireRow.Delete
End Sub |
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) if target.row < 51 then Target.EntireRow.Delete Cancel = True End Sub |
