Send Range of Cells to Body Of Outlook 365 Without Crashing

[ExcelVBAnovice]

Firstly, I'm not a programmer, but I dabble with Excel coding & VBA. I coded an Excel workbook 10 years ago to Email cells into the body of Outlook & it's worked great through
Office 2013, 2016 & 2021 but with Outlook 365 when clicking the 'send this section' tab, Outlook crashes

Sub Email_Instruction2()

ActiveSheet.Range("$A$1:$L$23").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Here it is"
.Item.to = "VBA@mail.com"
.Item.Cc = ""
.Item.Subject = "Returns"

End With

End Sub

The cells are text, VLOOKUP coding to bring in descriptors from a stock code & there is one small picture.
Is there anyone who can tell me how to fix this?

Thank you

 

[ExcelVBAnovice]

Not solved but I'm getting closer. I started to delete the items within my sheet & testing each time. I found some conditional formatting caused 365 to freeze & crash. I added the conditional formatting back in when opened in 365 & sending Email worked OK, but if opened in other versions of Office it froze & crashed. I took the conditional formatting back out & it works in all versions of Office tested, but only works once. Reusing the sheet for a second Email freezes & crashes. When time permits, I'll try locking the sheet with VBA before sending, then unlocking after the Email has been sent.