VB设置excel表单元格的颜色

xSheet.Range("A:A").Interior.Color =&H000000FF&