Online Free Stuff

  Excel Format MobileNo Messages 919723475111 Test 919727715979 Test1 919904432168 Test3   Code For Excel  Module   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