Apply VBA code to multiple cells

You're welcome.




If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.

I want to apply the below VB code on the whole column "I " kindly guided please

Private Sub Worksheet_Change(ByVal Target As Range)

' Initializing variables
Dim oldVal As String
Dim newVal As String

' Checking for changes in the drop down lists

Application.EnableEvents = True

If Target.Address = "$I$4" Or Target.Address = "$G$3" Then
    
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
        Exit Sub
' Adding the multiple selected items to the list
    Else
        If Target.Value = "" Then
            Exit Sub

        Else
            Application.EnableEvents = False
            newVal = Target.Value
            Application.Undo
            oldVal = Target.Value
            If oldVal = "" Then
                Target.Value = newVal
            Else
                If InStr(oldVal, newVal) = 0 Then
                    Target.Value = oldVal & ", " & newVal '& vbNewLine &
                Else
                    Target.Value = oldVal
                End If
            End If
        End If
    End If
End If

Application.EnableEvents = True

End Sub