BeforeDoubleClick worksheet event on multiple ranges

Hi cocacrave,
maybe so

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If InStr("tp.A,tp.B,tp.C", Target.Name.Name) = 0 Then Exit Sub
'"tp.A,tp.B,tp.C" - continue as you need
Call tpselect
Cancel = True
End Sub