how to add border without taking away vba code example

Example: vba cell all borders

' set "All Boarders" around a range
ActiveSheet.Range("A1:C3").Borders.LineStyle = xlContinuous