Я пытаюсь написать код, чтобы каждая ячейка открывала встроенный PDF

Question

Я работаю над таблицей, которую мы можем отправить нашим клиентам по электронной почте. Я написал код ниже, чтобы при двойном щелчке на ячейке открывался PDF-файл для этой ячейки. Я застрял при написании следующего кода, чтобы следующая ячейка открывала другой PDF. Любая помощь приветствуется

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = "$B$2" Then

Application.ScreenUpdating = False

Sheets("Attachments").OLEObjects("Object 1").Verb

Me.Activate

Application.ScreenUpdating = True

Cancel = True

End If

End Sub