try:

Private Sub Stuff_Click()
Dim cb As Object

Set cb = ActiveSheet.Stuff

If cb = True Then
MsgBox "Checkbox is Checked"
Else
MsgBox "Checkbox is not Checked"
End If
End Sub

Thanks Claus. Really pretty simple, just need the correct syntax.

I got the code I posted from a google search and was working for the person there in that archived thread, or so they said.

I'll just have to try and use them more to catch on I gurss.

Thanks again.

Howard




Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional