Descargar todas la imágenes y videos de un grupo de WhatsApp (MÉTODO 2) 

Aquí les dejo el código
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Private Sub CommandButton1_Click()
Dim i As Long, j As Long
Sleep 5000
For j = 1 To 100
For i = 1 To 500
Call SendKeys("{tab}", True)
Call SendKeys("{ENTER}", True)
Next i
Next j
End Sub