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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to fix this UDF to handle blank cells?||8||46|
|Excel to show a dynamic Picklist at level2||2||23|
|the UDF returns #Value when i open workbook.||19||49|
|my excel file states circular references, how do i find them?||2||22|
Join the community of 500,000 technology professionals and ask your questions.