Thanks, I tried both and still has an issue. VBA FTW the error is coming back with:

Run-time error '13':
Type mismatch

and this is the line highlighted

.Body = "Here are the numbers " & rngBody