regel kleuren

[fdh]

Hallo,
Ik gebruik de onderstaande code om een regel mee te kleuren met de muis cursor,
maar de werkt alleen op het eerste tabblad, als ik de code op andere tabbladen kopieert
dan werken die niet.
Hoe kan ik deze code aanpassen om hem op alle 7 tabbladen te laten werken?
Hij zit nu trouwens in Blad 1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 Then
Cells.Interior.ColorIndex = xlNone
Cells(Target.Row, "A").Resize(, 23).Interior.ColorIndex = 20
End If
End Sub

Bedankt.

 

[Joske2000]

Hi,

Je moet die code achter elk tabblad plaatsen, dan werkt dit perfect
Hou er wel rekening mee dat dit veel geheugen gebruikt.

Gr,

Joske

PS: gebruik in het vervolg code tags om je code te plaatsen.

 

[fdh]

Hi,
Bedankt, nu ik het nogmaals probeer werkt het inderdaad op andere tabbladen,
ik denk dat ik met het knippen en plakken wat verkeert deed.

Bedankt voor de hulp.