on cell entry

P

Paul

XL 2000

I would like a macro to open a dialogue box when a user
makes a cell active.

Can anyone point me in the direction of some basic code?

Thank you, Paul
 
F

Frank Kabel

Hi Paul
you can use the SelectionCange event. Put the following code in your
worksheet module:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
MsgBox "cell A1 is active"
End Sub

everytime you select cell A1 a messagebox appears
 
Top