Çok basit bir kod çalışmıyor, yardımınızı bekliyorum.
Private Sub CommandButton1_Click()
For i = 2 To 5
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ActiveSheet.Shapes("testresim").Copy
ie.Navigate "WhatsApp Web" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait Now +...