When I run this code it only takes the last value in the loop rather than giving me the union 1-10. Any help appreciated.

Dim r As Range
Dim rr As Range

For i = 1 To 10
temp = (Cells(i, 1).Value * 1)

Set r = Rows(temp)
Set rr = Application.Union(r, Rows(temp))

Next

rr.Delete



EggHeadCafe - Software Developer Portal of Choice
WPF DataGrid Custom Paging and Sorting
http://www.eggheadcafe.com/tutorials...tom-pagin.aspx