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!
Sub SendEmail() Dim X As Integer Dim Y As Integer Dim Count5 As Integer X = 2 'Row Y = 7 'Column Sheets("All ICG Cost Conditions").Select Dim ToAddresses As Variant ToAddresses = Array() Do Until IsEmpty(Cells(X, Y)) If Cells(X, Y) = Cells(X + 1, Y) Then X = X + 1 Else Text = Cells(X, Y) X = X + 1 ReDim Preserve ToAddresses(LBound(ToAddresses) To UBound(ToAddresses) + 1) ToAddresses(UBound(ToAddresses)) = Text End If Loop Text1 = Join(ToAddresses, "; ") Count5 = UBound(ToAddresses) + 1 'MsgBox Text1 & " " & Count5, _ 'vbInformation, "HELP by Ronny Lambotte" 'Text2 = ToAddresses(0) 'MsgBox Text2, _ 'vbInformation, "HELP by Ronny Lambotte" 'See below....found this on Expert Exchange....don't know how to use 'this. I want the array (ToAddresses) to be used in a list box on the 'message box and be able to store my selection into a vaiable Dim arr As Variant Dim SF1 As String ComboSF1.List = ToAddresses SF1 = ComboSF1.ListIndex + 1 MsgBox SF1 End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.