Excel - próba uzyskania hiperłącza podążania za dynamicznym obiektem programu Outlook - excel, excel-vba, outlook, vba

Oto kod, który przydzieliłem w moim module arkusza roboczego

Public Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim sendName As String

For i = 1 To 60
If Target.Name = "NOTIFY" Then
sendName = i & "test"
Call TestMail(sendName, "ERRORreport", "sendFile")
Else
Exit Sub
End If
i = i + 1
Next
End Sub

Problem polega na tym, że potrzebuję każdej instancji komórki NOTIFY nazywać unikalnym TestMail podprogram.

Odpowiedzi:

Zauważam, że zwiększasz swoją wartość For ... Następna pętla o 1 poza instrukcją If ... Then. To zagwarantuje, że pominiesz każdą inną wartość i.