Carlos soloffice respondió:
Se me ocurre de esta manera: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Static sClave As String sClave = sClave & Target.Address & "-" celdas = Split(sClave, "-") If UBound(celdas) > 3 Then sClave =...