Mike H

Yet again youve come up with the goods, a true legend !!!

D


Mike H wrote:
Hi,

Put a checkbox from the 'Forms' toolbox on your sheet. Right click is and
apply this macro

Sub CheckBox1_Click()
If ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn Then
Range("A1").Interior.ColorIndex = 3
Else
Range("A1").Interior.ColorIndex = xlNone
End If
End Sub

Change the range and colour to suit your requirements.

Mike

Dear All

[quoted text clipped - 4 lines]

D

--
Message posted via http://www.officekb.com