Multiple selection from a dropdown list into another variable

[MrsFixIt]

Hi.
I have been trying to modify and insert this code into an existing macro code.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Oldvalue As String
Dim Newvalue As String

On Error GoTo Exitsub
If Target.Address = "$C$5" Then
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
Target.Value = Oldvalue & ", " & Newvalue
End If
End If
End If
Application.EnableEvents = True
Exitsub:

My challenge. I need the function of multiple selections from a drop-down to load to a variable that will update to a data table.
I have tinkered with inserting it into my existing code, but it is not working.

Ex. sheet 1, cell c66 has the dropdown list, they need to choose 4-5 items from that dropdown list, the selected items will load to string named offices, then offices will transfer to a specific column worksheet 2

 

[Zot]

I found this code from another website on how to do multiple selection from dropdown list. Yes, you need to open dropdown and select and open again and select

Private Sub Worksheet_Change(ByVal Target As Range)
'Code by Sumit Bansal from [URL='https://trumpexcel.com']Online Excel Tips & Tutorials[/URL]
' To allow multiple selections in a Drop Down List in Excel (without repetition)
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Target.Address = "$C$2" Then
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
If InStr(1, Oldvalue, Newvalue) = 0 Then
Target.Value = Oldvalue & ", " & Newvalue
Else:
Target.Value = Oldvalue
End If
End If
End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub

 

[MrsFixIt]

This is neat. I like this for one of my 1st headaches
But I have a new one. Worksheet A has 8 list boxes with checkboxes.
After the selections, move to the data table in worksheet B.; when you return to worksheet A, items selected in the list box do not deselect.
And may the answer will work for both setups.