Excel AddCode in worksheet

[Lucas]

I tried:

Macro Macro43

Code:

Copy      Help

ExcelSheet es.Init
str strCode =
;Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
;'Update 20140318
;Static xRow
;Static xColumn
;If xColumn <> "" Then
;;;;;With Columns(xColumn).Interior
;;;;;;;;;.ColorIndex = xlNone
;;;;;End With
;;;;;With Rows(xRow).Interior
;;;;;;;;;.ColorIndex = xlNone
;;;;;End With
;End If
;pRow = Selection.Row
;pColumn = Selection.Column
;xRow = pRow
;xColumn = pColumn
;With Columns(pColumn).Interior
;;;;;.ColorIndex = 20
;;;;;.Pattern = xlSolid
;End With
;With Rows(pRow).Interior
;;;;;.ColorIndex = 20
;;;;;.Pattern = xlSolid
;End With
;End Sub

es.AddCode(strCode)

but it doesn't work.

Is possible to insert the code in Worksheet or ThisWorkbook module?