Ramme om søgning i Excel

Måske kan denne lille makro, som skal sættes ind på Arkets kodeside bruges:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
Target.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
Target.FormatConditions(1).Interior.ColorIndex = 27
End Sub

http://excel.pm/Eksperten/Markør.xlsm

Jeg har desværre ikke kunnet bruge de to forslag:
1. jeg ved ikke, hvordan man indsætter en makro
2. det virker ikke på min PC

De bedste hilsner og tak for forslag!
Karin

Hvis du højreklikker på arkets faneblad og vælger Vis koder, kan du indsætte makroen der

jeg har lige prøvet at sætte makroen ind, som beskrevet ovenfor, men jeg kan desværre stadig ikke få det til at virke!
er det muligt at jeg må ringe, så er det måske lettere at forklare mig, hvad jeg skal gøre.
Du er også velkommen til at ringe til mig, hvis du vil:  2099 2195

Jeg bruger denne simple kode som indsættes på den måde Jens48 har beskrevet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    CellsActiveCell.Interior.ColorIndex = 7 
End Sub

Løsning blev.:

Sub Nix()
'Denne i et alm. modul : forhindrer at boks/Rektangel går i edit mode ved klik
End Sub

'Denne i arkets kodemodul
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Top = ActiveCell.Top
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Left = ActiveCell.Left
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Width = ActiveCell.Width
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Height = ActiveCell.Height
End Sub

'Denne i et alm. modul
Sub skjul()
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Visible = Not ActiveSheet.Shapes.Range(Array("Rectangle 1")).Visible = True
End Sub