Eu estou trabalhando em uma planilha que podemos enviar e-mail para os nossos clientes. Eu escrevi o código abaixo para que, quando você clica duas vezes a célula que o PDF para essa célula se abre. Estou preso em escrever o próximo código para que a próxima célula iria abrir outra PDF. Qualquer ajuda é apreciada
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