VBA - kode til genkendelse af kolonneområder.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E:F,P:Q,AA:AB,AL:AM,AW:AX")) Is Nothing Then

    ActiveCell = "X"
    ActiveCell.Offset(1, 0).Select ' flytter 1 række ned,(0,1) flytter 1 til højre
  End If

  If Not Intersect(Target, Range("H:I,K:L,N:O,S:T,V:W,Y:Z,AD:EE,AG:AH,AJ:AK,AO:AP,AR:AS,AU:AV,AZ:BA,BC:BD,BF:BG")) Is Nothing Then
    ActiveCell.Value = Now() - Date
    ActiveCell.NumberFormat = "[hh]:mm"
    ActiveCell.Offset(1, 0).Select ' flytter 1 række ned,(0,1) flytter 1 til højre
  End If

End Sub

Kabbak
Kunne ikke få en kommentar ind på den nye side her før nu, -har forsøgt tidligere.

Jeg har prøvet din kode og den virker bortset fra et par mærklige problemer som er:

Ved dobbeltklik i en celle i følgende kolonner sker der følgende:
Dobbeltklik i  AL,  sættes der "X" i AL  (korrekt),  og "Tid"  i AM (fejl)
Dobbeltklik i AM,  sættes der "X" i AM (korrekt),  og "Tid"  i AN  (fejl)
Dobbeltklik i AW, sættes der "X" i AW  (korrekt),  og "Tid"  i AX (fejl)
Dobbeltklik i AX,  sættes der "X" i AX  (korrekt),  og "Tid"  i AY (fejl)

Hvorfor der bliver sat tid ind i cellen til højre for den celle hvori der er dobbelklikket kan jeg ikke finde ud af.  Ved dobbeltklik andre steder fungerer det perfekt.
Håber du har en løsning

du havde fejl i
  If Not Intersect(Target, Range("H:I,K:L,N:O,S:T,V:W,Y:Z,AD:AE,AG:AH,AJ:AK,AO:AP,AR:AS,AU:AV,AZ:BA,BC:BD,BF:BG")) Is Nothing Then

du har AD:EE med i rækken, det er ændret til AD:AE

Hej!
Tak for dine svar.
Mit excelark er beregnet til nogle indtastninger af fraværstid, komme og gå(tid) op til 3 gange daglig og afkrydsning(X) af om man er kommet og gået først og sidst på dagen i ugens 5 første dage.
Jeg har ikke selv været opmærksom på den fejl som du beskriver, selv om jeg har set koden efter flere gange, og hvis den fejl blev rettet havde koden sikkert fungeret perfekt uden fejl.
Jeg fik selv løst problemet, måske lidt amatøragtigt, men jeg delte "IF" koden op således at jeg fik 2 If koder for mandag, 2 "IF" koder for tirsdag, osv. således at der var to "IF for hver dag af ugens 5 første dage, -jeg tænkte, måske er der for mange områder i Range, og så virkede det perfekt. - Men nu kan jeg jo se at der var en fejl, denne fejl har jeg jo nok fået rettet ved og omskrive koden. - Men så ved vi jo, at det kan det gøres på to måder.
- Tak for din hjælp, du hjalp mig virkelig på rette vej, det er jeg glad for, og så kan jeg blive færdig med mit ark.
- Tak for hjælpen og læg et svar, point er dine, men der var så heller ikke andre som reflekterede på mit problem.

Tak for hjælpen