try
replacing
Sheets("Criteria").Range("A93").Value = ""
with
If Sheets("Criteria").CheckBox1.Value = False then
Sheets("Criteria").Range("A93").Value = ""
Make sure the sheet is not protected.
ADK wrote:
ok I fixed it.....had to put the code in module and made the line:
If Sheets("Criteria").CheckBox1.Value = True Then

One other problem is that the cell does not blank out if checkbox is
unchecked

-adk


"ADK" wrote in message
...
I get a runtime error '424'
Object required

When going to Debug, the following line is highlighted:

If CheckBox1.Value = True Then

??

-ADK


"stevebriz" wrote in message
oups.com...
Try this
In your useform1 ( assuming this is you welecome form)

put
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets("Criteria").Range("A93").Value = "SHOW"
Else
Sheets("Criteria").Range("A93").Value = ""
End If
End Sub


Then in This Workbook put

Private Sub Workbook_Activate()

If Sheets("Criteria").Range("A93").Value = "SHOW" Then
UserForm1.Show
Else
End If
End Sub


ADK wrote:
A93 of the Criteria sheet

"stevebriz" wrote in message
ups.com...
where do want store whether the user wants the welcome window to show?
on a hidden sheet in a particular cell.( cell value ( true or False)?

ADK wrote:
I would like to open a userform (WelcomeWindow) when the worksheet
(Criteria) is active.

I would also like to place a checkbox on userform that allows a user
to
check it to indicate they no longer want the userform to appear.

thanks

adk