In diesem Beispiel wird dem Bereich A1:D4 in Sheet1 ein breiter roter Rahmen hinzugefügt.
Worksheets("Sheet1").Range("A1:D4").BorderAround _ ColorIndex:=3, Weight:=xlThick