Fernando MG respondió:
Pega esta macro en el objeto hoja que contiene tu listado: Private Sub workSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("B1:C500")) Is Nothing Then Exit Sub Target = 1 End Sub Suponiendo que la columnas...