[COLOR="DarkSlateGray"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim oCel As Range, tf As Boolean
tf = True
For Each oCel In Rows(Target.Row).Cells
tf = tf And IsEmpty(oCel)
Next oCel
If tf Then
Rows(Target.Row).Delete Shift:=xlUp
Cancel = True
End If
End Sub[/COLOR]