Excel VBA使用当前单元格选择

Question

Sorry if this is a dumb question but still fairly new to VBA.

I'm building a daily schedule sheet, and as part of it want to be able to color code high and low priority appointments. Rather than having to manually adjust the color and bold each one, I want to run a macro with a shortcut key to modify the cells I've selected.

I have the color/bold part figured out, but am having trouble telling it to apply the changes the cells I have selected. Any help would be greatly appreciated.

Sorry, the code is-

Sub HighPriority() 

HighPriority Macro

    Range("AE27:AP27").Font.Color = RGB(255, 0, 0)
    Range("AE27:AP27").Font.Bold = True
End Sub

So instead of it always editing AE27:AP27, I would want it to apply the changes to whichever cells I have selected.

Answer 1

After Select ing your cells, run something like:

Sub ColorMe()
    With Selection
        .Interior.ColorIndex = 27
        .Font.Bold = True
    End With
End Sub