Delete The Selected Row In The Active Table

Delete the selected row in the active table will prompt the user that the selected cell in a table is about to be deleted and to Yes to confirm as deleting with VBA cannot be undone.

' ======================================================================================================
' ## Delete the selected row in the active table
'    This will prompt the user that the selected cell in a table is about to be deleted and to
'    press Yes to confirm as deleting with VBA cannot be undone.
' ======================================================================================================
Private Sub DeleteRow_Click()
    ' Vars
    Dim RowNumToDelete As Long
    Dim Answer As Variant

    ' Optimise
    Application.ScreenUpdating = False

    ' Get the row number in the table from the active cell address
    '   This will then prompt the user to confirm deleting the row
    '   as it cannot be undone
    With ActiveCell.ListObject
        RowNumToDelete = ActiveCell.Row - .Range.Cells(1).Row

        Answer = MsgBox("This will delete row: " & RowNumToDelete & vbLf & _
            "There is no Undo option, Proceed?", vbYesNo + vbInformation)
        If Answer = vbYes Then
            .ListRows(RowNumToDelete).Delete
        End If
    End With

    ' Optimise
    Application.ScreenUpdating = True
End Sub