Apply VBA code to entire column

[pea789]

Hello,

I imagine that this is a super easy fix for those of you in the know but for a complete amature like me I am pulling my hair out. I want this code to be repeated in every column in row H. Any help would be much appreciated!

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Oldvalue As String

Dim Newvalue As String


Application.EnableEvents = True

On Error GoTo Exitsub




If Target.Address = "$H$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 & vbNewLine & Newvalue

      Else:

  

      End If

    End If

  End If

End If

Application.EnableEvents = True

Exitsub:

Application.EnableEvents = True

End Sub

 

[Flaiban]

Change this :
If target.value = $H$2 then

For below:

If Target.Column = 8 Then

 

[pea789]

If Target.Column = 8 Then

Works perfectly. Thank you so much!

 

[Flaiban]

Works perfectly. Thank you so much!

You're welcome