Hi Sanjay, I am not sure that I understand your distinction between the
Selctionchange event and " on cell enter /selection" , but perhaps your
intention is to limit the event response to a single cell or range.

Try, therefo

'=============
Private Sub Worksheet_SelectionChange _
(ByVal Target As Range)
Dim rng As Range

Set rng = Me.Range("A1") '<<==== CHANGE

If Not Intersect(rng, Target) Is Nothing Then
UserForm1.Show
End If
End Sub
'<<=============

---
Regards,
Norman


"Sanjay" wrote in message
...
Hi,

Is it possible to show a userform when the user selects a cell (enters the
cell), I can use the selectionchange but is there a on cell enter
/selection?

Thanks!