vba enviarmensajesmasivos

Sub EnviarMensajesMasivos()
    Dim rng As Range
    Dim cell As Range
    Dim mensaje As String
    
    ' Rango de celdas que contiene los números de teléfono
    Set rng = Range("A1:A10")
    
    ' Mensaje que deseas enviar
    mensaje = "¡Hola! Este es un mensaje masivo desde Excel."
    
    ' Recorre cada celda en el rango y envía el mensaje a través de WhatsApp
    For Each cell In rng
        ' Verifica que la celda no esté vacía
        If Not IsEmpty(cell) Then
            ' Envía el mensaje a través de WhatsApp
            Shell "C:\ruta\hacia\WhatsApp.exe" & " send " & cell.Value & " -m """ & mensaje & """", vbNormalFocus
            ' Espera unos segundos antes de enviar el siguiente mensaje
            Application.Wait Now + TimeValue("00:00:02")
        End If
    Next cell
End Sub