on cell enter..
Perfect. Thank you.
-----Original Message-----
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 ?
.
|