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 ListBox1_LostFocus() Dim s As String, i As Integer With ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) = True Then s = s & .List(i) & "," Next i End With With Range("A1") If s = vbNullString Then .Value = vbNullString Exit Sub Else .Value = Left(s, Len(s) - 1) End If On Error Resume Next '.Comment.Delete '.AddComment .Value End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|please help modify and explain this VBA||13||61|
|I need add rows to specific range of rows||9||43|
|Modifying VBA to exclude a single row of data when extracted to another workbook||7||16|
|Linking Cells within workbooks - how to mass re-direct to a different sheet within a workbook||5||9|
Join the community of 500,000 technology professionals and ask your questions.