Macro DoubleVlick VBA Excel

[Behlok]

Olá amigos.

 

Gostaria de uma ajuda.

 

O código abaixo serve para dar um duplo click na célula (entre as colunas D e H) e aparecer um X no local.

Não sei o motivo, mas ela não funciona, sendo que eu a copiei de uma outra planilha que está funcionando.

 

Alguém pode ajudar? 

 

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    Cancel = True    If Not Intersect(Range("D:H"), Target) Is Nothing Then        If UBound(Split(Cells(Target.Row, 1).Text, ".")) = 4 Then            Range("D" & Target.Row & ":H" & Target.Row).ClearContents            Target = "X"        End If    End If    End Sub