Fout code 1004

[Jatto]

In een bestand heb ik de onderstaande code gebruikt. Op mijn PC werkt dit goed. Op een andere PC krijgt de gebruiker Foutcode 1004. Het zijn bedrijf PC's en de machines zijn identiek.
VBA geeft aan dat de dik gebrukte regel fout is.
Graag tips om dit op te lossen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In Range("b3:af46")
     Select Case c.Value
       Case "V", "v", "V-1/2", "1/2-V"
            c.Interior.ColorIndex = 24
        Case "c", "C"
            c.Interior.ColorIndex = 34
        Case "W", "w"
            c.Interior.ColorIndex = 15
        Case "P", "p"
            c.Interior.ColorIndex = 19
        Case "z", "Z"
            c.Interior.ColorIndex = 28
       [B]Case "o", "O", "-", "m", "M", "n", "N", ""[/B]
            c.Interior.ColorIndex = 2
      Case "q"
            c.Interior.ColorIndex = 1
            c.Font.Color = 1
       End Select[COLOR="#000000"][/COLOR]
  Next c
End Sub

 

[Ginger]

Kan het zijn dat de betreffende worksheet op "die andere pc" beveiligd is?

Overigens vind ik het altijd schieten met een kanon op een mug.... Het gebruik van VBA voor het kleuren van cellen. Als je dit doet met de standaard functionaliteit Conditional Format (voorwaardelijke opmaak) heb je nergens last van...

 

[Jatto]

Zat 'm dus in de beveiliging. Thx voor de hulp