Private
Sub
Worksheet_BeforeDoubleClick(
ByVal
Target
As
Range, Cancel
As
Boolean
)
If
Intersect(Target, Range(
"B14:M42"
))
Is
Nothing
And
Intersect(Target, Range(
"B48:D54"
))
Is
Nothing
And
Intersect(Target, Range(
"E48:E54"
))
Is
Nothing
Then
Exit
Sub
Else
If
Not
Intersect(Target, Range(
"B14:M42"
))
Is
Nothing
Then
ActiveCell.Copy Worksheets(
"Dash8 Q400 Checklist"
).Range(
"C181"
)
If
Not
Intersect(Target, Range(
"B48:D54"
))
Is
Nothing
Then
ActiveCell.Copy Worksheets(
"Dash8 Q400 Checklist"
).Range(
"C181"
)
If
Not
Intersect(Target, Range(
"E48:E54"
))
Is
Nothing
Then
ActiveCell.Copy Worksheets(
"Dash8 Q400 Checklist"
).Range(
"C181"
)
End
If
End
Sub