Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Columns(3)) Is Nothing Then
        If Target.Value <> "" Then Shell "explorer.exe " & Target.Value, vbNormalFocus: Cancel = True
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Columns(5)) Is Nothing Then
        If Target.Value <> "" Then
            fPath = "start " & """"" " & """" & Target.Value & """"""
            Shell "cmd /c" & fPath, vbHide: Cancel = True
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim l As String
    Set rLinks = Intersect(Target, Columns(5))
    If rLinks Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each cell In rLinks
        If InStr(cell.Value, ":") Then
            l = Mid$(cell.Value, 1, InStr(cell.Value, ":") - 1)
            cell.Value = Replace(cell.Value, l & ":", GetNetworkDriveAddress(l))
        End If
    Next cell
    Application.EnableEvents = True
End Sub

Function GetNetworkDriveAddress(drLetter As String)
    Dim fso, d
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each d In fso.Drives
        If d.DriveType = 3 And drLetter = d.DriveLetter Then
            GetNetworkDriveAddress = d.ShareName: Exit Function
        End If
    Next d
    GetNetworkDriveAddress = drLetter & ":"
End Function

Sub AddHyperlink()
    Dim cell As Range

    Application.DisplayAlerts = False

    ' Unshare the Workbook
    If ActiveWorkbook.MultiUserEditing Then
        ActiveWorkbook.ExclusiveAccess
    End If

    ' Change address in cell to a hyperlink.
    If ActiveCell = "" Then
        ActiveCell.Hyperlinks.Delete
    Else
        For Each cell In Intersect(Selection, _
          Selection.SpecialCells(xlConstants, xlTextValues))
            With Worksheets(1)
                .Hyperlinks.Add Anchor:=cell, _
                  Address:=cell.Value, _
                  ScreenTip:=cell.Value, _
                  TextToDisplay:=cell.Value
            End With
        Next cell
    End If

    ' Reshare the Workbook
    If Not ActiveWorkbook.MultiUserEditing Then
        ActiveWorkbook.SaveAs _
          Filename:=ActiveWorkbook.FullName, _
          AccessMode:=xlShared
    End If
End Sub