[حل شده] اجرا یک قسمت از ماکرو به تعداد مشخص

[a.dal65]

با سلام خدمت دوستان
من میخوام ماکرو زیر برای این چهارتا شماره اجرا بشه(یعنی انگار 4 بار اجرا بشه ، هر بار برای هر کدوم از شماره ها)
ممنون میشم راهنمایی کنید

Private Sub()
Dim IE As Object

tel1 = +123456789
tel2=+981234506
tel3=+986540789
tel4=+989999999


Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "whatsapp: // send?phone=" & tel  & "&text=hiiiiiiii"
Application.Wait Now() + TimeSerial(0, 0, 4)
SendKeys "~"
End Sub 

[a.dal65]

Dim tel(1 To 4) As String
   tel(1) = "+98123456"
   tel(2) = "+98999999"
   tel(3) = "+98000000"
'   tel(4) = "+98666666"
Dim item As Variant
For Each item In tel


IEnew.Navigate "whatsapp://send?phone=" & item & "&text="