Solved: Auto Hyperlink to Folders

[Hapten]

Hey,

I am using this code:

[vba]
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


End Sub
[/vba]

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.

[geekgirlau]

[VBA]Address:=FullPathName, TextToDisplay:=Mid(FullPathName, InstrRev(FullPathName,"\")+1)
[/VBA]

[Hapten]

Thanks geekgirlau, that is exactly what I needed. Here is a picture of a rabbit to show my appreciation.


.( Y )
.( . .)
c( ")(")

[geekgirlau]

You're welcome - don't forget to mark the thread as solved (Thread Tools at the top of the page)