Macro not working excel 2016

Hello,

I have a code that I want to use

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A6")) Is Nothing Then
        Range("A1:A5").Value = Range("A2:A6").Value
        Range("A6").Value = ""
    End If
End Sub

However when I put it int excel, the code will show up under my workbook or sheet, however it will not be found when I try to run it.

I noticed that when I take away the text between () that it shows up but I need the (ByVal Target As Range) to work

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer