I need to be able to select multiple entries from a drop down tab that references a named list elsewhere in the workbook. I am able to get the drop down tab to funtion, however it refuses to project those selections into a different cell, or select multiple entries from the list. I have tried several test codes posted on various forums, however when I copy that code over to my spreadsheet, it does not work. I can provide the specific files if need be.
heres the code im currently using on the sheet with the drop down
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo exitHandler
Dim rngDV As Range
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
If Target.Column = 3 Then
If Target.Value = "" Then GoTo exitHandler
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Target.Value
Else
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value _
& ", " & Target.Value
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
Bookmarks