Macro Help / Bold and Highlight current cell

Hello,

I need some help with a macro to Bold the font and chance the background color of the current cell(s) when crtl-q is pressed.

Below is what I have and it works but for a specific cell. I don't know the code/variable to use for a "current cell".

Hope someone can help.

Sub Build()
'
' Keyboard Shortcut: Ctrl+q
'
Range("N2").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ActiveWindow.SmallScroll Down:=0
Range("N2").Select
End Sub

Thanks!

B

Thanks for your time and code! Worked like a charm!

B