Limit user selected range

[Ben AFF]

Hi, I have a Macro that allows the user to send email based on selection of rows on a spreadsheet.
I want to limit the range within which the user selection is valid to columns A:B only.
Please can you help me? Thank you.

Sub ExcelToOutlookSR()
Dim mApp As Object
Dim mMail As Object
Dim SendToMail As String
Dim MailSubject As String
Dim mMailBody As String
For Each r In Selection
SendToMail = Range("M" & r.Row)
MailSubject = Range("K" & r.Row)
mMailBody = Range("L" & r.Row)
Set mApp = CreateObject("Outlook.Application")
Set mMail = mApp.CreateItem(0)
With mMail
.To = SendToMail
.Subject = MailSubject
.Body = mMailBody
.Display
End With
Next r
End Sub

 

[Ben AFF]

Sorry, without having the file I can't investigate the problem.

No problem Akuini, I understand and your help is much appreciated. You are great!

 

[Akuini]

No problem Akuini, I understand and your help is much appreciated. You are great!

Ok, hope you can figure it out.

 

[Ben AFF]

Ok, hope you can figure it out.

thank you