Excel VisualBasic Script

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