Estoy trabajando en una hoja de cálculo que se puede enviar por correo electrónico a nuestros clientes. He escrito el siguiente código para que al hacer clic en el doble de la célula de la PDF para esa celda se abre. Estoy atascado en la escritura de la siguiente código para que la siguiente celda abriría otro PDF. Cualquier ayuda se agradece
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