EXCEL SE KUCH BHI SIDHA WHATSUP PE BHEJO

Is Sheet Me Vb Pe Coading Dalke Isme "Send" Wale Shape Se Attach Kar Dya Gaya Hai Ab Dekhye Coding Kese Dalna Hai

Aur Ye Lijiye Coading Copy To Paste Kar Ke Ap Bhi Use Karna

Sub msg_click()

On Error GoTo errorh:

mobileno = Selection.Value

Set myrange = Sheet1.Range("A:A")

rowno = Application.WorksheetFunction.Match(mobileno, myrange, 0)

Message = Sheet1.Cells(rowno, 2).Value

Amount = Sheet1.Cells(rowno, 3).Value

ActiveWorkbook.FollowHyperlink Address:="https://wa.me/" & mobileno & "?text=" & Message & Amount & ""

End

errorh:

Err.Clear