| 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