Sleeper: Load Folder Content in Single Column List Box

[gsouza]

I think i did it

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Link = ListBox1.Text 
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & Link
End Sub