On double click change colour of Named Range

[fastrack]

I require a macro so that once double clicked a selected range is then coloured green

Can you guys help please

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("B5:D7")) Is Nothing Then
         Range("mrun_1").Interior.Color = 45678
         Cancel = True
   End If
End Sub