Private Sub CommandButton1_Click()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' Internet Explorer'ı görünür yap
    ie.Visible = True

    ' İlgili hücrelerdeki veriler için döngü
    For i = 2 To 2 ' İstediğiniz satır aralığını burada belirtebilirsiniz
        ' WhatsApp Web URL'sini oluştur
        Dim url As String
        url = "https://web.whatsapp.com/send?phone=" & Cells(i, 1).Value & "&text=" & Cells(i, 2).Value

        ' URL'ye git
        ie.Navigate url

        ' Sayfanın tamamen yüklenmesini bekle
        Do While ie.Busy Or ie.ReadyState <> 4
            DoEvents
        Loop

        ' Ekstra bekleme süresi (WhatsApp Web'in tamamen yüklenmesi için)
        Application.Wait Now + TimeValue("00:00:10")

        ' Mesajı göndermek için Enter tuşuna bas
        SendKeys "~", True ' "~" Enter tuşuna denk gelir

        ' Bir sonraki işlemden önce biraz bekle
        Application.Wait Now + TimeValue("00:00:05")
    Next i

    ' Internet Explorer'ı kapat
    ie.Quit
    Set ie = Nothing
End Sub