Assistance with macro

[blewth]

Hi

I am trying to make a Macro, whereby I hit Ctrl Shift G and my text or number will turn green.

My macro is below:

-------

' Keyboard Shortcut: Ctrl+Shift+J
'
With Selection.Font
.ColorIndex = 4
End With
End Sub

------

It does not seem to work however? Nothing happens. I have other macros in the same format structure for blue, red, etc. But nothing seems to happen when I try do green?

Thanks

 

[My Aswer Is This]

It needs to look like this:

Sub Color_Me()
'Modified  10/30/2018  11:22:06 PM  EDT
With Selection.Font
.ColorIndex = 4
End With
End Sub

 

[blewth]

Forgive me if I am wrong, but does it not like this already?

Mine...

With Selection.Font
.ColorIndex = 4
End With
End Sub

-------

Yours..

With Selection.Font
.ColorIndex = 4
End With
End Sub
Forgive my ignorance. I assume you dont mean the 2 lines above it as well?

Thanks

 

[Logit]

.
Paste this in the Sheet Module :

Option Explicit


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Color_Me
End Sub

Paste your macro in a regular module.

 

[Akuini]

Hi, blewth
Your code should work. Maybe the issue is in keyboard shortcut. Do you use Ctrl+Shift+G or Ctrl+Shift+J?

 

[blewth]

I am sorry could you break down the code for me? So how does the above work with the below?

With Selection.Font
.ColorIndex = 4
End With
End Sub

 

[blewth]

I have tried all different types of shortcuts.

 

[AndyMachin]

You want the shortcuts hardcoded? This works for me:

Private Sub Workbook_Open()
Application.OnKey "^+j", "ChangeColor"
End Sub


Sub ChangeColor()
With Selection.Font
    .ColorIndex = 4
End With
End Sub

Edit: Application.OnKey "^+j", "ChangeColor" that line should go in the WorkBook_Open event

 

[My Aswer Is This]

I see no:

Sub Color_Me()
​

Forgive me if I am wrong, but does it not like this already?

Mine...

With Selection.Font
.ColorIndex = 4
End With
End Sub

-------

Yours..

With Selection.Font
.ColorIndex = 4
End With
End Sub
Forgive my ignorance. I assume you dont mean the 2 lines above it as well?

Thanks

 

[My Aswer Is This]

The script worked for me. You need some text in the cell to see the color

All scripts must start with

Sub Color_Me()

and end with

End Sub

Your script shown here had no start like:

Sub Color_Me()