List sheet names in "pop-up" box for users to select
Ok, So I figured out how to add and populate a combobox...but the code fires as soon as the selection is made. How do I suspend the code until the OK button is clicked? I thought I was being smart by choosing ComboBox1_DropButtonClick, but that gave me an error!
Here's what I have:
Private Sub ComboBox1_Click()
gsWksTargetName = ComboBox1.List(ComboBox1.ListIndex)
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
If wks.Visible Then ComboBox1.AddItem wks.Name
Next 'wks
Me.Caption = "Select Target"
End Sub
|