Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Private sArray
Dim Dic As Object
Private Sub UserForm_Initialize()
Set Dic = CreateObject("Scripting.Dictionary")
sArray = S2.Range("A1:D" & S2.[A65536].End(xlUp).Row).Value
LBDMHH.List() = sArray
CBDMHH.List = Sheet3.[A1:A5].Value
CBDMHH.Value = "ALL"
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment