hi,
do I have to write
SetTick Target
Cancel = True
for each cell is there a short way ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case "$D$8"
SetTick Target
Cancel = True
Case "$E$8"
SetTick Target
Cancel = True
Case "$F$8"
SetTick Target
Cancel = True
Case "$G$8"
SetTick Target
Cancel = True
Case "$H$8"
SetTick Target
Cancel = True
Case "$I$8"
SetTick Target
Cancel = True
End Select
End Sub