Any way to streamline this code, it's a bit bulky


Code:
--------------------

Sub CreateSitesList()

Dim Sites As New Collection
Dim ASNno As New Collection
Dim idate As New Collection

Sheets("Addressing").Range("V2:W40").ClearContents
Sitesrow = Sheets("Sites").Range("C65536").End(xlUp).Row
ASNrow = Sheets("Sites").Range("M65536").End(xlUp).Row
iDaterow = Sheets("Sites").Range("A65536").End(xlUp).Row

For Each sr In Sheets("Sites").Range("C2:C" & Sitesrow)
On Error Resume Next
Sites.Add Item:=sr, key:=CStr(sr)
Next sr

For Each ar In Sheets("Sites").Range("M2:M" & ASNrow)
On Error Resume Next
ASNno.Add Item:=ar, key:=CStr(ar)
Next ar

For Each id In Sheets("Sites").Range("A2:A" & iDaterow)
On Error Resume Next
iDate.Add Item:=id, key:=CStr(id)
Next id

For i = 1 To SiteList.Count
Sheets("Addressing").Range("V2").Offset(i, 0).Value = Sites(i)
Sheets("Addressing").Range("W2").Offset(i, 0).Value = iDate(i)
Sheets("Addressing").Range("X2").Offset(i, 0).Value = ASNno(i)
Next i

End Sub
--------------------


--
swieduwi
------------------------------------------------------------------------
swieduwi's Profile: http://www.excelforum.com/member.php...o&userid=21962
View this thread: http://www.excelforum.com/showthread...hreadid=380191