In that case I'd use something like:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim myForm As UserForm1
With Target
If .Count 1 Then Exit Sub
If Not Intersect(.Cells, Range("A1:A50) Is Nothing Then
Set myForm = New UserForm1
myForm.Show
End If
End With
End Sub




In article <KNO1c.1231$m56.435@newsfe1-win,
"paul" wrote:

The tip works fine.

Can I extend the active cell as a range.
For example A1:A50 ?