Cellefarve

Jeg fandt nedenstående på http://www.developerfusion.com/code/2095/excel-coloured-cursor/

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Cells.Interior.ColorIndex = xlColorIndexNone
        Selection.Interior.ColorIndex = 8
    End Sub

Kan det bruges?

Tak for svar.
Har prøvet at kikke på det, men jeg kan ikke rigtig finde ud af hvor den kode skal sættes ind.

Du skal højreklikke på fanebladet og vælge Vis koder og indsætte koden der.
PS. Du skal ikke bruge svar. Det kan jeg give og du kan, hvis du kan bruge det, acceptere det.

Så lykkedes det at finde ind til det, men der kommer en fejlmeddelelse.
Har opdaget at linket er lagt i 2002, altså til en tidligere Excel.

Takker for din hjælp.

Fandt denne:
Private Sub Worksheet_selectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, [a1:av65536]) Is Nothing Then
myleft = 1
myup = 1
If Target.Column = 1 Then myleft = 0
If Target.Row = 1 Then myup = 0
With ActiveCell
.Interior.ColorIndex = 8
.Offset(-myup, -myleft).Interior.ColorIndex = 0
.Offset(0, -myleft).Interior.ColorIndex = 0
.Offset(myup, -myleft).Interior.ColorIndex = 0
.Offset(-myup, 0).Interior.ColorIndex = 0
.Offset(myup, 0).Interior.ColorIndex = 0
.Offset(-myup, myleft).Interior.ColorIndex = 0
.Offset(0, myleft).Interior.ColorIndex = 0
.Offset(myup, myleft).Interior.ColorIndex = 0
End With
End If
End Sub

problemet med denne er at cellefarven har en tendens til at blive "hængende" og det virker ikke når arket bliver beskyttet.

Du skal tage makroen fra min kommentar og ikke fra linket da der i linket er en <br> inkluderet

Det hjalp, nu virker det.

Bortset lige fra at der kommer en "runtime error 1004" når arket bliver låst, men så må jeg jo undlade at gøre det.

Takker for hjælpen.

Låst uden kode:

Takker, det virker noget bedre efter hensigten.

Velbekomme.

Giv point til jens48 i #3

Her er en lille film om:
Hvordan man accepterer svar på Eksperten.dk
http://www.youtube.com/watch?v=s26DGiuvXBo