Rectángulos en macros VB en excel

Hola experto. Deseo saber como cambiarle en color al borde y el relleno de un rectángulo creado con macros, ya que me sale el color predeterminado que se le pone cuando lo creo.
El código para crearlo es este:
ActiveSheet.Rectangles.Add xx1, yy1, xx, yy
Y con este le cambio el color interno. Pero quiero saber si esta correcto y como cambiarle el color al borde.
With Worksheets("Qmax").Rectangles(1).Interior
    .Pattern = xlChecker
    .PatternColorIndex = 12
End With
With Worksheets("Qmax").Rectangles(1).Interior    .Pattern = xlChecker    .PatternColorIndex = 12End With
agradeceria mucho su ayuda.

{"Lat":5.61598581915534,"Lng":-79.453125}