Including Relative Cell References in Email Body

Question

Trying to write code to email information based on one cell, to include other cells values from that same row within the email body. If the Cells(x,11) = Pending, then am wanting to include other information (relative to that cell) in the email body; looking to include the contents of cells -9, and also -7. Thanks so much in advance.

Sub EmailPendings() Dim xOutApp As Object Dim xOutMail As Object Dim xOutMailAttach As String Dim xMailBody As String On Error Resume Next

FirstCell = 0 x = 6

While Cells(x, 1).Value <> ""
   

If Cells(x, 11).Value = "Pending" Then

Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi Team" & vbNewLine & vbNewLine & _
          "The following items are pending final approval, and is expected soon. Please proceed with Team assignment." & vbNewLine & vbNewLine & _
          "Additional details are included below" & vbNewLine & _
          Cells(x, 11).Value = "Pending" _
            .FormulaR1C1 = "=(RC[-9],0)" & vbNewLine & _
          Range ("C43") & vbNewLine & _
          Range("C44") & vbNewLine & _
          Range("C45") & vbNewLine & _
          "Best,"
              On Error Resume Next
With xOutMail
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Assignments Needed From Team Review: " & Date
    .Body = xMailBody
    .Display   'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing

exitHandler: Exit Sub errHandler: MsgBox "Could not create email" Resume exitHandler

End If 'Go to next line x = x + 1 Wend