Activate user form upon condition

[fishergomz]

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

 

[Bob Phillips]

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]

Thanks, I'll give it a try