If sheet2 , Col C , contains a value <> 0 for eg -325.65, 985.75 etc , then the text below to be excluded from being in the body of the email
Strbody = Strbody & Join(Application.Transpose(Range("R3:R4").Value)) & " - please attend to these amounts " & vbNewLine & vbNewLine
It would be...