Do Until Function returning Sub or Function not defined error

Flip it around and Send the tested value before incrimentiong

Row_Number = 1

Do While Not(IsEmpty(Cells(Row_Number, "A"))
    Call SendEmai(....)
    Row_Number = Row_Number + 1
Loop