hi
not sure but i get an error with your code. so i rewrote it to work on my pc.
Dim r As Long
r = ActiveCell.Row
If Range("A" & r) < "" Then

i think you have a syntax problem'
regards
FSt1


"LaDdIe" wrote:

Hi,

I have this code that I can't quite get right

If Not Intersect(Target, Range("emp_All")) Is Nothing Then
On Error Resume Next
If Range("A(ActiveCell.Row)") < "" Then
UserForm1.Show
End If
On Error GoTo 0
Else
On Error Resume Next
Unload UserForm1
Err.Clear
End If

It works except that it appears to ignore 'If Range("A(ActiveCell.Row)") <
"" ' and proceeds to show the UserForm even if range is empty.