Auto Hyperlink to Folders

Hey,

I am using this code:

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim FullPathName As String 
    If Target.Cells.Count > 1 Then Exit Sub 
    If Target = "" Then Exit Sub 
     
    If Target.Column = 2 Then 
        Application.EnableEvents = False 
        FullPathName = "H:\Lab\" & Target 
        Target.Clear 
         
        Target.Hyperlinks.Add Anchor:=Target, _ 
        Address:=FullPathName, TextToDisplay:=FullPathName 
        Application.EnableEvents = True 
    End If

Everything works the way I want it, but one thing. Instead of displaying the "Full Path Name," I want it to display the folder name only. Looked everywhere and could not figure out what to do. Any insight into this would be welcomed.

Thank you.