I am currently using the following macro to delete rows:
Sub RowDelete()
With ActiveCell
  If MsgBox("Are you sure you want to delete record number " & Range("A" & .Row) & ", " & Range("F" & .Row) & "?", vbYesNo, "Delete row?") = vbYes Then
    .EntireRow.Delete
  End If
End With
End Sub
How can I take it further so that if the user does not have an active cell selection between (and including) Columns A to K, from row 6 to the last record then is displays the message "You must select a record to be deleted'.
Also if the user selects multiple rows then the message box would instead display the message 'Are you sure you want to delete the records (display the A cell of the first row in the selection) to (display the A cell of the last row in the selection)?
Then erase every row in the selection.