Excel EXCEL Caixa de listagem suspensa com seleçao multipla

[Usuario_Comum]

Tenho uma Caixa de listagem suspensa com seleção múltipla na coluna D, mas agora preciso que seja na coluna D e na coluna F. Não entendo de VBA então gostaria de saber o que mudar nesse código.

Private Sub Worksheet_Change(ByVal Target As Range)
' To Select Multiple Items from a Drop Down List in Excel
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Target.Column = 4 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

 

[CasaDoHardware]

Esta linha

 

Target.Column = 4 Then

 

Troque o 4 por 6

[Usuario_Comum]

@CasaDoHardware Se eu mudar isso o codigo vai funcionar somente na coluna F mas eu preciso que funcione em duas na D e na F.

[CasaDoHardware]

Sendo assim experimente:

 

Target.Column = 4 or Target.Column = 6 Then