Corey
12/12/2006 10:09:00 AM
correct me if i am wrong but you have OpenPS001F to be Visible = FALSE if
Mycell < 50???
"Mark J" <MarkJ@discussions.microsoft.com> wrote in message
news:B52224CE-49C6-4E6D-B8A9-B8841418E60D@microsoft.com...
> cell value is less than 50, so why does the code not fire?
>
> "William Horton" wrote:
>
>> I assume you have double checked that MyCell contains a value that is
>> greater
>> than 50...
>>
>> "Mark J" wrote:
>>
>> > I have the following code:
>> > Private Sub UserForm_Activate()
>> > Me.OpenPS001.Visible = False
>> > Me.OpenPS001F.Visible = False
>> > MyCell = Worksheets("PS001").Range("d9")
>> > If MyCell > 50 Then
>> > Me.OpenPS001.Visible = False
>> > Me.OpenPS001F.Visible = True
>> > Else
>> > If MyCell < 50 Then
>> > Me.OpenPS001F.Visible = False <=========== Change to True
>> > Me.OpenPS001.Visible = True
>> > End If
>> > End If
>> > End Sub
>> >
>> > on open, OpenPS001F should appear , but does not, any ideas?