Could you help me with the rest of this code ?
If so, :) Here is the scoop..

The first part creates a list of sites from a sheet called "Sites"
(Future will be a CSV File not a sheet) to my main workbook sheet
called "Addressing"

this part re-fills all fields when a user clicks on the site list
"name"

For instance, you see a sheet that is a data entry area, standard stuff
like
site name, addresss, contacts ect.. and IP addresses to the right there
is a list of sites that are complete. If I want to see info from a
previous site, I would click on the site name and all the fields would
populate with the data from the "Sites" sheet.

Does that make any sense?

So this is what I have come up with, (of course it's not working)
"Damit Jim, I am a Network Engineer not a programmer", sorry..star trek
humor

Code:
--------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Relist As New Collection

If Not Intersect(Target, Range("E6:E40")) Is Nothing Then
Range("H6:I300").ClearContents
Lastrow = Sheets("Sites").Range("e65536").End(xlUp).Row

For Each ce In Sheets("Sites").Range("d2:d" & Lastrow)
If ce = Target.Value Then
On Error Resume Next
Relist.Add Item:=ce.Offset(0, 1), key:=CStr(ce.Offset(0, 1))
End If

Next ce
For i = 1 To Relist.Count
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("J 9:J" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("O 9:O" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("D 2:D" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("D 3:D" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("D 4:D" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("D 5:D" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("D 6:D" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("D 7:D" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("D 8:D" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("D 9:D" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("S 2:S" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("S 3:S" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("H 8:H" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("H 9:H" & Lastrow), Relist(i))
Sheets("Addressing").Range("H5").Offset(i, 0).Value = Relist(i)
Sheets("Addressing").Range("H5").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("D 29:D57" & Lastrow), Relist(i))

Next i
End If
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