Code in include cell value on sheet

[howard]

I have the foliowing snippet of code to email data

I need it amended to include the value of B1 on sheet "Ageing" after the text in my code "Please attend to those over 60 days"

 strBody = strBody & "Attached Please find Debtors Report-Please attend to those over 60 days -Please chase up on the highlighted items" & vbNewLine & vbNewLine

I have tried to show what I want to achieve below

 strBody = strBody & "Attached Please find Debtors Report -Please attend to those over 60 days amounting to &sheet("ageing").range("B1") -Please chase up on the highlighted items" & vbNewLine & vbNewLine

Kindly amend my code

 

[jmacleary]

Amended code:

strBody = strBody + "Attached Please find Debtors Report -Please attend to those over 60 days amounting to " + Sheets("ageing").Range("B2").Text + " -Please chase up on the highlighted items" + vbNewLine + vbNewLine

 

[howard]

Thanks for the help, much appreciated