Boa tarde, rafaelp.
Inseri esse código em seu label, vai realizar a função de Hyperlink, mas não vai encurtar o Nome exibido
Private Sub lblHyperLink_Click()
Dim HyperLink As String
HyperLink = Me.lblHyperLink.Caption
If Len(HyperLink) > 0 And HyperLink <> "HYPERLINK" Then
ThisWorkbook.FollowHyperlink HyperLink
Else
MsgBox "Selecione um arquivo", vbInformation, "Atenção"
End If
End Sub
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. 
Postado : 28/10/2016 1:35 pm