Calling Macro from cell selection

Hi,

I'm having problem with when trying to call Macros from cell selection/value.
attached test sheet for reference.

The code i'm using :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(True, True) = "$J$7" Then
Select Case Target
Case "SRG PER W/M"
Call ADDSRGWMLINE
Case "SRG PER TON OR PART OF IT"
Call ADDLOCALPERTON
Case Else
'Do nothing
End Select

End If
End Sub



Thank you very much.