Sub SetGrayBordersAll()
' Formats the selected cells with light gray borders.
' Keyboard Shortcut: Ctrl+Shift+G
''''
If TypeName(Selection) <> "Range" Then Exit Sub
Const MYCOLOR As Long = 13948116 ' RGB(212, 212, 212)
Selection.Borders.Color = MYCOLOR
End Sub