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
|adding to,subject,body for the opened mail instead of creating new mail||15||33|
|Excel for Mac - How make those Tabs larger?||2||31|
|How to make a cell highlight based on the first Saturday of the month||6||27|
|remove upper case characters in excel||4||19|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!