VBA Macro to send WhatsApp custom message to multiple contacts

Question

I have a macro code below to send whatsapp message in column H to multiple contacts in Column A3:A10. However, the code below keep looping to send the same message to contact in cell A3 only.

How do I send the custom message to A4, A5 and etc.?

Sub msg_click()
On Error GoTo errorh:
mobileno = Selection.Value
Set myrange = Sheet1.Range("A3:A10")
rowno = Application.WorksheetFunction.Match(mobileno, myrange, 0)
Message = Sheet1.Cells(rowno, 8).Value

Do Until Range("A3") = ""
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWorkbook.FollowHyperlink Address:="https://wa.me/" & mobileno & "?text=" & Message & ""
Application.Wait Now() + TimeSerial(0, 0, 3) 'ok just one wait and sendkeys :v
SendKeys "~"
Loop
End
errorh:
Err.Clear
MsgBox "Select Proper Mobile Number "
End Sub