Aide mail avec plage de cellule

bonjour

j'ai ce code la qui fonctionne tres bien par mail

j'aimerai lui ajouter une plage de cellule dans le corps du message svp exemple plage de B23 D28

merci

Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "nouvelle demande "
                  On Error Resume Next
    With xOutMail
        .To = "XXXXXX@XXX.fr"
        .CC = ""
        .BCC = ""
        .Subject = "demande "
        .Body = xMailBody
        .send  'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing

ou même envoyer de la feuille 1 si c'est plus simple a faire

merci par avance !