Assuming checkbox is from Forms toolbar, not control toolbox:
Substitute your linked cell's address, the sheet name, and the CheckBox name
in the below:

Sub CheckBox1_Click()

Range(LinkedCell).Value = (Sheets("Sheet1").Shapes("Check Box
1").ControlFormat.Value < 1)

End Sub

If you also need the checkbox to update when the user changes the value in
the linked cell, you would need to do this as well in the Worksheet's code
module:

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Range(LinkedCell).Value
Case True
Sheets("Sheet1").Shapes("Check Box 1").ControlFormat.Value = -4146
Case False
Sheets("Sheet1").Shapes("Check Box 1").ControlFormat.Value = 1
End Select

End Sub




"Donkin" wrote:


How can I get a Checkbox to reverese its function.

I have a check box linked to a cell and want the box to be checked
when the cell is False, and clear the cell is True.

Any help appreciated.


--
Donkin
------------------------------------------------------------------------
Donkin's Profile: http://www.excelforum.com/member.php...o&userid=23715
View this thread: http://www.excelforum.com/showthread...hreadid=375694