Create Horizontal and vertical tabs

Hi
I have been following excel freelancers on you tube, and the employee manager looks good for the job I am in. I am having a bit of trouble when I fill in the Microsoft Visual Basic, this what I am putting in but it's not working

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("E4:H4")) Is Nothing Then

  Range("B2").Value = Target.Column
End If

  
End Sub

Good someone please explain why this is not working as I have followed it the same as I see on you tube

Thank you