Code cleanup help please


I have set up a *** that has 10 command buttons which change color
when work*** cells contain something other than a ""

Here is the cosr I'm using too effect this

With ThisWorkbook.Sheets("Costs").CommandButton1
If Range("a100").Value <> "" Then
BackColor = &HFFFF00
Else
BackColor = &HE0E0E0
End If
End With

With ThisWorkbook.Sheets("Costs").CommandButton2
If Range("a101").Value <> "" Then
BackColor = &HFFFF00
Else
BackColor = &HE0E0E0
End If
End With

etc etc

Is there a more efficient way to do this?

Cheers

Peter (new to VBA)


--
peter.thompson
------------------------------------------------------------------------
peter.thompson's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=29686
View this thread: http://www.excelforum.com/showthread.php?threadid=495425

.

Loading