Influencing a function from within a module

[Rolly_Sefu]

Hello,

I have this code line:

Sheets("Mail").Range("B8:B100").Replace What:="<first name>", Replacement:=cell.Value, SearchOrder:=xlByColumns, MatchCase:=True

"<first name>" this is part of a Range for a function to combine multiple cells into 1 cell info

Function Combine(WorkRng As Range) As String
'combine entire range into one cell
'=Combine(A1:E1)
Dim Rng As Range
Dim OutStr As String
For Each Rng In WorkRng
    OutStr = OutStr & Rng.Text & Chr(13) + Chr(10)
Next
Combine = OutStr
End Function

When i edit something in the sheet, the function performs correctly.
But once the macro runs past the replace line function returns "#Value!" since the range is Nothing.

How can i fix this ?
Thank you.

 

[maabadi]

I think , I forgot to remove my added ' to Line '.HTMLBody = Sheets("Mail").Range("B2") because get error on my PC, Please remove it.

What about vbCrLf or <br> :

"Hello" & vbCrLf & "This is on a new line"

Or

"Hello" & "<br>" & "Please find attached the above invoices and backup" & "<br>"

 

[Rolly_Sefu]

That works perfectly.
Thank you.

 

[maabadi]

You 're welcome & Thanks for feedback.