Estou com alguma dificuldade para fazer o seguinte:

Tenho uma planilha de check list de entrega e gostaria de usar uma Caixa de seleção para marcar a entrega do item listado e que quando esta caixa for marcada automaticamente seja incluída a data da alteração em formato de texto para que não seja alterada a cada vez que abrir o arquivo.
Tentei utilizar a dica abaixo (retirada de um outro site), mas isso não funciona para um recálculo na planilha.

Private Sub Worksheet_SelectionChange(ByVal Alvo As Range)
Dim limite_maximo As Integer
limite_maximo = 69
If Alvo.Cells.Count > 1 Or IsEmpty(Alvo) Then Exit Sub
If Alvo.Column <= 1 And Alvo.Row >= 2 And Alvo.Row <= limite_maximo Then
Application.EnableEvents = False
Alvo.Offset(0, 2).Value = Time()
Application.EnableEvents = True
End If
End Sub

Eu consegui fazer uma macro para que isso aconteça, mas ele fica vinculado a cada uma das caixas de seleção e como vou incluir centenas delas, precisaria de uma macro "genérica", ou seja, que funcione com qualquer caixa inserida dentro de um intervalo pré definido.

Esta é a macro que criei. Se isso puder ser transformado em algo genérico seria muito interessante. Ela copia uma céluna da coluna ao lado da caixa de seleção e cola como texto.

Sub insere_data()
'' insere_data Macro
'

    Range("D4").Select
    Selection.Copy
    Range("E4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Obrigado!
Pedro