VB Code:
For a = 4 To last If Sheets("Software Personnel").Range("K" & a).Value = "M760" Then Sheets("Software Personnel").Select Rows(a).Select Selection.Cut Sheets("M760 Personnel").Select Rows(m760Last + count).Select ActiveSheet.Paste count = count + 1 End If Next
When I try to run this code... I get an error "1004 Select Method of Range class failed" and doesn't like this line:
VB Code:
Rows(a).Select
Any ideas? Any different algorithms that would work?
Thanks,
Alex
