EXCEL POPUP error

[annadinesh]

While Opening Whaysapp Application through EXCEL VBA the following Popup is showing,

"DO YOU WANT TO ALLOW THIS WEBSITE to open an App on your Computer
App: Whatsapp"


I am using the following VBA CODE

Private Sub CommandButton4_Click()
If ActiveSheet.Name = "SOT" Then

If IsEmpty(Worksheets("SOT").Range("C5")) Then
Cancel = True

MsgBox ("Please Select Vehicle Model"), vbDefaultButton1, "Vehicle Model Blank"
Range("C5").Activate
Else

If IsEmpty(Worksheets("SOT").Range("C2")) Then
MsgBox ("Invalid Phone Number"), vbDefaultButton1
Else

Dim strPhoneNumber As String
Dim strPostData As String
Dim ie As Object

Range("B3:C25").CopyPicture Appearance:=xlScreen, Format:=xlBitmap

strPhoneNumber = Sheets("SOT").Range("C2").Value

strPostData = "Share on WhatsApp" & 91 & strPhoneNumber
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate strPostData

End If
End If
End If
End Sub


How to Disable the popup, so that whatsapp opens without tis popup.


Regards



Dinesh Saha