Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub ' koden virker i cellerne A1 til A10 ret til aktuel
Target.Interior.ColorIndex = 4 ' celle farves grøn (4) ved dobbeltklik
End Sub
Højreklik på arkfane
vælg Vis programkode
indsæt koden i det vindue
koden virker når du dobbeltklikker i A1 til A10 ret efter behov