Activate user form upon condition
 

I want to be able to activate a user form only one time. How can I d
this? Can I do this upon first entry into the sheet?

If I rely on the contents of a cell to trigger the form, how can I d
this? What I'm thinking about doing is testing a date field fo
current date and if it's not current, I want to show the user form

--
Message posted from http://www.ExcelForum.com

Activate user form upon condition
 

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
With Target
If .Value = Date Then
Userform1.Show
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

THis is worksheet code, so put it in the worksheet code module.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"fishergomz " wrote in message
...
I want to be able to activate a user form only one time. How can I do
this? Can I do this upon first entry into the sheet?

If I rely on the contents of a cell to trigger the form, how can I do
this? What I'm thinking about doing is testing a date field for
current date and if it's not current, I want to show the user form.


---
Message posted from http://www.ExcelForum.com/

Activate user form upon condition
 

Thanks, I'll give it a try

--
Message posted from http://www.ExcelForum.com