如何用宏程序实现EXCEL表格的着色与取消

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim icolor As Integer
On Error Resume Next
Cells.FormatConditions.Delete
icolor = 3
With Target.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = icolor
End With
End Sub
.，我有一个小程序实现了着色，但是还差一个语句，第二次点击空格则颜色取消.急高手能帮我修改一下.
点一个空格着色,再点这个空格,取消颜色;可以同时保存一行最少五个空格的颜色,(意思就是点一次保存,点第二次取消!)求高手做嫁衣!

在excel表格中如何用宏 如何用EXCEL复制表格 如何用excel做表格? 如何用excel作表格 如何用VB实现表格打印功能？ 如何用excel制作进销存表格 如何用下拉列表填写Excel表格？ 如何用Excel 做表格呢？ Excel如何用宏命令实现下列要求 如何用excel实现以下功能？