For i = 2 To Last
Name = Cells(i, 3)
If Name = Target Then
Range(Cells(i, 1), Cells(i, 81)).Name = "Second"
Range("First, Second").Name = "First"
End If
Next i

Not a good idea to use Name as a variable.

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Icy" wrote in message
...
Hello could anyone help, I worte a code which select record from same user
in
the excel sheet and name the selection "First". Once run through all the
record, it will call selection "First" then copy and paste it onto the
serach
result sheet. The code listed works fine until the user records are over
150. The function will give me a error "Run-Time error'1004':
Application-defined or object-defined error". Could anyone help, or any
good
suggest on how to achive this.
Thanks so much.

Range(Cells(1, 1), Cells(1, 81)).Select
Selection.Name = "First"

For I=2 to Last
Name = Cells(I,3)
If (Name = Target) Then
Range(Cells(I, 1), Cells(I, 81)).Select
Selection.Name = "Second"
Range("First, Second").Select
Selection.Name = "First"

Next I