Hej! Letar efter en kod som räknar antalet klick du gör i en enskild cell och sedan skriver ut resultatet på en annan cell. Jag har lyckats hitta en kod som gör det jag letar efter men den funkar inte enligt de behov jag har. Koden ser ut som följer:

Public xRgS, xRgD As Range
Public xNum As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRgS = Range("AK1")
If xRgS Is Nothing Then Exit Sub
Set xRgD = Range("A3")
If xRgD Is Nothing Then Exit Sub
If Intersect(xRgS, Target) Is Nothing Then Exit Sub
xNum = xNum + 1
xRgD.Value = xNum
End Sub

Ni kan se ovan att jag vill att den ska räkna klicken som görs i cell AK1. Men AK1 är en cell som är centrerad över 3 celler så den täcker alltså AK1, AL1 samt AM1. Detta gör att koden ovan inte fungerar. Koden fungerar endast för mig när den inte ska räkna klick som är centrerad över fler celler. Någon som kan hjälpa mig?