Sub AddEventProcedure()
'''' Add a reference to Microsoft Visual Basic for Applications Extensibility 5.3
Dim lastSheet As Worksheet, ws As Worksheet
Dim CodeMod As VBIDE.CodeModule
Dim Kode As String
With ThisWorkbook
Set lastSheet = .Sheets(1)
For Each ws In .Sheets
If Val(Mid(ws.CodeName, 6)) > Val(Mid(lastSheet.CodeName, 6)) Then
Set lastSheet = ws
End If
Next ws
End With
Set CodeMod = ActiveWorkbook.VBProject.VBComponents(lastSheet.CodeName).CodeModule
Kode = _
"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)" & vbNewLine & _
"Dim Rng As Range" & vbNewLine & _
"Static sortOrdur As Long" & vbNewLine & _
"Set Rng = Target.CurrentRegion" & vbNewLine & _
"sortOrdur = IIf(sortOrdur = xlAscending, xlDescending, xlAscending)" & vbNewLine & _
"Rng.Sort Key1:=Target, order1:=sortOrdur, Header:=xlYes" & vbNewLine & _
"Cancel = True" & vbNewLine & _
"End Sub"
With CodeMod
.InsertLines .countoflines + 1, Kode
End With
End Sub