Hi guys,

Ihave been trying to exacute this code but somehow i get a syntax error message

Could you help i think this is small problem, but i don't know how to fix it

Thanks ahead

Row_number = 1
Do
DoEvents
Row_number = Row_number + 1
Dim mail_body As String
Dim full_name As String
Dim link As String
mail_body_message = Sheet1.Range("f5")
full_name = Sheet1.Range("c" & Row_number)
link = Sheet1.Range("d" & Row_number)
mail_body = Replace(mail_body, "replace_name_here", full_name)
link = Replace(mail_body, "linkID", link)
'Here is the problem
Call SendEmail(Sheet1.Range("A" & Row_number), "Invoice for your activity", mail_body)
Loop Until Row_number = 3
Messagebox = "Complete"

End Sub