Private Sub cbx1_click()
if cbx1.Value then
worksheets("Sheet1").Range("A1").Value = "Y"
else
worksheets("Sheet1").Range("A1").ClearContents
end if
end Sub

--
Regards,
Tom Ogilvy

"Minitman" wrote in message
...
Hey Frank,

I am attempting to put a "Y" on my spreadsheet if cbx1.value is true
and nothing if it is false. I can't seem to get it from the userform
to the spreadsheet.

Any ideas?

-Minitman



On Tue, 26 Oct 2004 23:58:01 +0200, "Frank Kabel"
wrote:

cbx1.value