Change range border color
Sub BorderDemo() With Range("A1:E5") .BorderAround ColorIndex:=1 End With End Sub