Msgbox to show selected customers name in YES / NO message before its deleted

[ipbr21054]

I have the code shown below "MINUS RED TEXT" which when i select a customer in column A it deletes it fine.
I need the user to check if he actually has selected the correct customer to delete so,
I added the code in RED to try & show a Msgbox with the customers name taken from what the user had selected in column A but im getting confused.

Private Sub DeleteCustomer_Click()
    Dim tblName As String
    Dim tbl As ListObject
    Dim R As Long
    Dim lr As Long
    Dim i As Long
    Dim ActiveTableRow As Long
    
    If ActiveCell.Column = 1 Then
    MsgBox("DELETE CUSTOMER " & ActiveCell.Value & "?", vbYesNo + vbInformation, "DELETE CUSTOMER FROM DATABASE") = vbYes Then
        ActiveTableRow = Selection.Row - Selection.ListObject.Range.Row
        Selection.ListObject.ListRows(ActiveTableRow).Delete
        MsgBox "CUSTOMER NOW DELETED", vbInformation, "CUSTOMER DELETED MESSAGE"
        Else
        MsgBox "YOU MUST SELECT CUSTOMER IN COLUMN A", vbCritical, "NO CUSTOMER WAS SELECTED"
    End If
    
End Sub

 

[ipbr21054]

I have managed to get this working BUT just need to now include customers name that has been selected in column A

Private Sub DeleteCustomer_Click()
    Dim tblName As String
    Dim tbl As ListObject
    Dim R As Long
    Dim lr As Long
    Dim i As Long
    Dim ActiveTableRow As Long
    
    If ActiveCell.Column = 1 Then
        If MsgBox("DELETE CUSTOMER FROM DATABASE" & " ?", vbYesNo + vbInformation, "DELETE CUSTOMER FROM DATABASE") = vbNo Then
        Exit Sub
        Else
        End If
        ActiveTableRow = Selection.Row - Selection.ListObject.Range.Row
        Selection.ListObject.ListRows(ActiveTableRow).Delete
        MsgBox "CUSTOMER NOW DELETED", vbInformation, "CUSTOMER DELETED MESSAGE"
        Else
        MsgBox "YOU MUST SELECT CUSTOMER IN COLUMN A", vbCritical, "NO CUSTOMER WAS SELECTED"
    End If
    
End Sub

 

[RoryA]

The only things missing from your original attempt was the word If at the start of the line in red, and a second End If line at the end of the code.

 

[ipbr21054]

Thanks very much now working