Cómo usar vba para intercambiar los colores de relleno de dos celdas en Excel

El código es el siguiente: Sub?test()

Dim?tmp?As?Integer

tmp?=?[a1].Interior.ColorIndex ?' El color de relleno de A1 se almacena en una variable

[a1].Interior.ColorIndex?=?[b2].Interior.ColorIndex?'

[ b2].Interior.ColorIndex?=?tmp

End?Sub