We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub CommandButton2_Click() Dim NameList() As Variant Dim dict As Object, c As Variant, i As Long, lr As Long Set dict = CreateObject("Scripting.Dictionary") lr = Cells(Rows.Count, 1).End(xlUp).Row c = Range("a1:a45" & lr) For i = 1 To UBound(c, 1) dict(c(i, 1)) = 1 Next i End Sub
Join the community of 500,000 technology professionals and ask your questions.