Hello all, I am hoping you point me in the right path here. How do I open a workbook when a value in the listbox is clicked?
Use the following -
'opening workbook Workbooks.Open Filename:="c:\book1.xls" 'your code 'your code 'below code for saving and closing the workbook Workbooks("book1.xls").Activate ActiveWorkbook.Save ActiveWorkbook.Close
Has this solved your problem Tunde011? If so, please mark this as solved, found at the bottom of this page, thanks.:)
Thanks for the code, although I already know how to open a workbook, I some how worked it out myself and this is for any other fellow that come across this in the future. When items on the Listbox are clicked, it opens the associated workbook
Private sub ListBox1_Click() Dim i As Integer For i= 0 To ListBox1.ListCount -1 If ListBox1.Selected(i) Then ' Provided your ListBox1 has an item called Apple ' i.e I had ListBox1.AddItem("apple") previously. If ListBox1.List(i) = "Apple" Then Workbooks.Open("C:\apple.xls"), ReadOn:=False End If If ListBox1.List(i) = "Google" Then Workbooks.Open("C:\google.xls"), ReadOn:=False End If End If Next i End Sub
Thanks. Nice code there.