Sub WhatsAppMsg()
Dim LastRow As Long
Dim i As Integer
Dim strip As String
Dim strPhoneNumber As String
Dim strmessage As String
Dim strPostData As String
Dim IE As Object
 
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
 
strPhoneNumber = Sheets("Data").Cells(i, 1).Value
strmessage = Sheets("Data").Cells(i, 2).Value
 
'IE.navigate "whatsapp://send?phone=phone_number&text=your_message"
 
strPostData = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strmessage
Set IE = CreateObject("InternetExplorer.Application")
 
IE.navigate strPostData
Application.Wait Now() + TimeSerial(0, 0, 5)
SendKeys "~"
 
Next i
End Sub
 
 
 

U3ViIFdoYXRzQXBwTXNnKCkKRGltIExhc3RSb3cgQXMgTG9uZwpEaW0gaSBBcyBJbnRlZ2VyCkRpbSBzdHJpcCBBcyBTdHJpbmcKRGltIHN0clBob25lTnVtYmVyIEFzIFN0cmluZwpEaW0gc3RybWVzc2FnZSBBcyBTdHJpbmcKRGltIHN0clBvc3REYXRhIEFzIFN0cmluZwpEaW0gSUUgQXMgT2JqZWN0CgpMYXN0Um93ID0gUmFuZ2UoIkEiICYgUm93cy5Db3VudCkuRW5kKHhsVXApLlJvdwpGb3IgaSA9IDIgVG8gTGFzdFJvdwoKc3RyUGhvbmVOdW1iZXIgPSBTaGVldHMoIkRhdGEiKS5DZWxscyhpLCAxKS5WYWx1ZQpzdHJtZXNzYWdlID0gU2hlZXRzKCJEYXRhIikuQ2VsbHMoaSwgMikuVmFsdWUKCidJRS5uYXZpZ2F0ZSAid2hhdHNhcHA6Ly9zZW5kP3Bob25lPXBob25lX251bWJlciZ0ZXh0PXlvdXJfbWVzc2FnZSIKCnN0clBvc3REYXRhID0gIndoYXRzYXBwOi8vc2VuZD9waG9uZT0iICYgc3RyUGhvbmVOdW1iZXIgJiAiJnRleHQ9IiAmIHN0cm1lc3NhZ2UKU2V0IElFID0gQ3JlYXRlT2JqZWN0KCJJbnRlcm5ldEV4cGxvcmVyLkFwcGxpY2F0aW9uIikKCklFLm5hdmlnYXRlIHN0clBvc3REYXRhCkFwcGxpY2F0aW9uLldhaXQgTm93KCkgKyBUaW1lU2VyaWFsKDAsIDAsIDUpClNlbmRLZXlzICJ+IgoKTmV4dCBpCkVuZCBTdWIKCgo=