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

 

[GWteB]

Double clicking on a cell brings Excel in input mode so that would be a real challenge. Imo it's not possible, so you have to search for another way to launch your macro. To change color use this, code is self explanatory.

Sub Example()
    Const cGreen As Long = 2779203

    Selection.Interior.Color = cGreen
    Selection.Font.Color = cGreen

End Sub

 

[fastrack]

sorry maybe I should of been clearer I have named ranges Ie run 1 run2 I want the user to be able to click to change the run (named range) as green maybe right click would be fine

 

[GWteB]

Range("NameOfYourRange").Font.Color = 1234567

You might consider using the macro recorder in order to obtain the color number of the kind of green you like the most.

 

[Fluff]

You can use a double click event, something like

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Select Case Target.Address(0, 0)
      Case "A1"
         Range("Run_1").Interior.Color = 45678
         Cancel = True
      Case "B1"
         Range("Run_2").Interior.Color = 45678
         Cancel = True
   End Select
End Sub

 

[fastrack]

Hmm thats not working

this code works but I dont know how to link to once clicked it highlights the named block

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Interior.Color = vbGreen
End Sub

 

[Fluff]

See post#5

 

[fastrack]

I have but it is not working

 

[Fluff]

Which cells do you want to click on & what are the named ranges they should colour?

 

[fastrack]

b5-6-7 c5-6-7 d5-6-7 named range is mrun_1