Eyes0ftheworld
New Member
- Joined
- Apr 23, 2014
- Messages
- 28
Hey!
I'm having some issues with a macro to list all sheets with a workbook. The workbook is specified in another dropdown. I'm not sure how to reference another dropdown. I want the dropdown WorksheetsDD to populate once the workbook is specified in the dropdown WorkbooksDD. This is what I have so far and it's working up until the dropdown for the worksheets.
Sub StartButton_Click()
'lists each book that's OPEN
Set wks = Worksheets("Directions")
wks.Shapes("WorkbooksDD").ControlFormat.RemoveAllItems
Dim Wb As Workbook
For Each Wb In Application.Workbooks
Worksheets("Directions").Shapes("WorkbooksDD").OLEFormat.Object.AddItem Wb.Name
Next Wb
End Sub
Sub WorkbooksDD_Change()
End With
Thanks for any help you can provide!
I'm having some issues with a macro to list all sheets with a workbook. The workbook is specified in another dropdown. I'm not sure how to reference another dropdown. I want the dropdown WorksheetsDD to populate once the workbook is specified in the dropdown WorkbooksDD. This is what I have so far and it's working up until the dropdown for the worksheets.
Sub StartButton_Click()
'lists each book that's OPEN
Set wks = Worksheets("Directions")
wks.Shapes("WorkbooksDD").ControlFormat.RemoveAllItems
Dim Wb As Workbook
For Each Wb In Application.Workbooks
Worksheets("Directions").Shapes("WorkbooksDD").OLEFormat.Object.AddItem Wb.Name
Next Wb
End Sub
Sub WorkbooksDD_Change()
End With
Thanks for any help you can provide!