Opening a other type of document

1. kobus1305 

Maybe with VBA...but it depends on which version of Excel you have and which operating system.

* Knowing the Excel version and operating system would also be an advantage :).

'Class module table

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (_
      ByVal hwnd As Long, _
      ByVal lpOperation As String, _
      ByVal lpFile As String, _
      ByVal lpParameters As String, _
      ByVal lpDirectory As String, _
      ByVal nShowCmd As Long) As Long
Private Sub Worksheet_FollowHyperlink (ByVal Target As Hyperlink)
If Right $ (LCase $ (grgRbereich.Value), 4) = ".pdf" Then
     ChDrive $ Left (grgRbereich.Value, 3)
     ChDir $ Left (grgRange.Value, InStrRev (grgRange.Value, "\", -1))
     ShellExecute 0, "open", Dir $ (grgArea.Value), "", CurDir $ & "\", 1
End If
End Sub

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Set large area = ActiveCell
End Sub

Hope I understood the translation correctly and was able to help you.

Thank you for your understanding and patience

Nikolino

I know I don't know anything (Socrates)

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here