Este fórum está sendo desativado

[WarleySCCCO]

Ola Gurus,

Então peguei código, porem não esta rodando como deveria. Ele até abre o abre arquivo porem fecha automaticamente o arquivo PDF.

Código :

Código: Selecionar todos

Private Sub BtnIrlink_Click()
On Error Resume Next
    
    If Me.txtlink = "" Then
        MsgBox ("Não há nenhum registro selecionado")
        Exit Sub
    Else
    
    
        Dim caminho As String
        caminho = Me.txtlink
        ActiveWorkbook.FollowHyperlink caminho
    End If
End Sub