If CheckBox1.Value = True Then
Worksheets("Sheet1").Cells(23, 7).Value = 16
Else: Worksheets("Sheet1").Cells(23, 7).Value = 8
End If
this seems to work for me
--
davesexcel
------------------------------------------------------------------------
davesexcel's Profile:
http://www.excelforum.com/member.php...o&userid=31708
View this thread:
http://www.excelforum.com/showthread...hreadid=564091