Sub Macro1
Code1.....
Macro2
End Sub
Sub Macro2
Code2.....
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B4")) Is Nothing Then
Range("B48") = Range("B48") + 1
Cancel=true
endif
If Not Intersect(Target, Range("AJ4")) Is Nothing Then
Range("AN64") = Range("AN64") + 1
cancel=true
end if
End Sub