VBA probleem

[Drieband]

Hé excellers,
Ik loop tegen volgend probleem aan met volgende code.
Als ik op de knop (ledigen scores) druk krijg ik een foutmelding 1004.
Iemand een oplossing hiervoor mischien?

Bekijk bijlage OBK2.xlsm

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
  Select Case Target.Address
 Case Is = "$E$26"
    Application.Goto Range("H7"): Exit Sub
 Case Is = "$J$26"
    Application.Goto Range("M7"): Exit Sub
 Case Is = "$O$26"
    Application.Goto Range("R7"): Exit Sub
 Case Is = "$T$26"
    Application.Goto Range("U2"): Exit Sub
 Case Is = "$U$2"
    Application.Goto Range("C7"): Exit Sub
  End Select
 End With
 
 
 With Target
    Select Case Target.Column
 Case 3
    Application.Goto .Offset(, 2)
 Case 5
    Application.Goto .Offset(1, -2)
 Case 8
    Application.Goto .Offset(, 2)
 Case 10
    Application.Goto .Offset(1, -2)
 Case 13
    Application.Goto .Offset(, 2)
 Case 15
    Application.Goto .Offset(1, -2)
 Case 18
    Application.Goto .Offset(, 2)
 Case 20
    Application.Goto .Offset(1, -2)
 Case 21
    Application.Goto .Offset(1, -18)
    End Select
  End With
End Sub

 

[Warme bakkertje]

Zet bovenaan je macro LeegScores

Application.EnableEvents = False

en onderaan

Application.EnableEvents = True

 

[edmoor]

Wijzig .Offset eens in Activecell.Offset
Als dat is wat je bedoeld.

 

[Drieband]

Beste Rudi en edmoor,hartelijk bedankt voor deze zeer snelle reactie.
Rudi,jouw oplossing werkt perfect.
edmoor,bij de uwe blijft het probleem bestaan.
Mvg, Drieband

 

[edmoor]

Ok dan, bij mij werkte dat andersom.
Als jouw probleem maar opgelost is, daar voor was je hier