Try this:

Sub Macro1()
With Selection.Interior
.ColorIndex = 0
.Pattern = xlLightDown
.PatternColorIndex = xlAutomatic
End With

End Sub



"dixonpeter" wrote:


What I'm after is the VB code to get a button to change a blank cell to
have it checked, i.e diagonal lines through it.

Can anyone help?


--
dixonpeter


------------------------------------------------------------------------
dixonpeter's Profile: http://www.excelforum.com/member.php...fo&userid=2589
View this thread: http://www.excelforum.com/showthread...hreadid=395282