USFengBULLS
Board Regular
- Joined
- May 7, 2018
- Messages
- 66
- Office Version
- 365
- Platform
- Windows
Hello,
I am trying to have an entire row get deleted if the user double clicks a cell anywhere in column B. Column B is a Description column, so if the user double clicks that particular description it will delete the entire row and shift everything below it up so there are no blank rows. Here is what I have so far but need more help to finish this code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Target.Selection.EntireRow.Delete
End If
End Sub
Thanks
I am trying to have an entire row get deleted if the user double clicks a cell anywhere in column B. Column B is a Description column, so if the user double clicks that particular description it will delete the entire row and shift everything below it up so there are no blank rows. Here is what I have so far but need more help to finish this code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Target.Selection.EntireRow.Delete
End If
End Sub
Thanks