Shortcut to change the font color in the cell

[Myurathan]

I'm working on a sheet. i should have blue and black font colors random. if i can have macro shortcut for blue and black, would save loads of my time. please help me on this.

 

[Greg Hitchon]

Hi,

Macros to change cell colors are not a problem, but I am not quite sure what you are asking for.

Do you mean you want all cells (or a certain range) randomly coloured either blue or black? Or do you want a shortcut key that would change the colour of the selected cell/range to blue/black?

 

[Myurathan]

Hi!
shortcut key that would change the colour of the selected cell/range to blue/black. simply saying a keyboard shortcut key for fontcolor blue and black..

 

[Greg Hitchon]

So a simple way of doing this goes as follows:

'Run this once before using, it is just to set the shortcuts (you can do this manually as well but for ease of use this is simpler)
Sub SetShortcutKeys()
With Application
.OnKey key:="^+K", Procedure:="turn_Black"              'CTRL+SHIFT+K--turn cell black
.OnKey key:="^+L", Procedure:="turn_Blue"               'CTRL +SHIFT+L--turn cell blue
End With
End Sub

'this will turn the entire selection black...this is not undoable so be careful
Sub turn_Black()

    Selection.Interior.Color = vbBlack
End Sub


Sub turn_Blue()
    Selection.Interior.Color = vbBlue
End Sub

so run the "SetShortCutKeys" sub, and then you can use:
CTRL+SHIFT+K--turn cell black
CTRL+SHIFT+L--turn cell blue

 

[Myurathan]

Thanks a lot for your help, but i need to change the font color. the macro changes the cell color .

 

[Greg Hitchon]

Ah, sorry misread.

Change the "Interior" bit to "Font" as shown:

Sub turn_Black()
    Selection.Font.Color = vbBlack
End Sub


Sub turn_Blue()
    Selection.Font.Color = vbBlue
End Sub

 

[Myurathan]

Thanks a lot. it works charm. one quick question, is that possible that what ever the workbook i'm working on, can i use this macro without creating it again and again? i mean use this macro on all work books.