ich habe ein Userform Listenfeld in welchem ich alle Excelsheets des Workbooks aufgelistet habe
Nun möchte ich die einzelnen Sheets anwählen und öffnen können.
Weiß leider nicht wie. Kann mir hier jemand helfen?
Vielen Dank
Marco
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim p As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
p = ListBox1.List(i)
End If
Next i
'p = Range("A11").Value
ActiveWorkbook.FollowHyperlink Address:=p, NewWindow:=True
End Sub