Happy New Year!
Am almost there with this list, this is my code now:
Option Explicit
Sub Macro6()
Dim i As Long
Dim ws As Worksheet
Dim sSumSheet As String
sSumSheet = "Index"
For i = 1 To Worksheets.Count
Range("D" & i + 10) = i
Range("E" & i + 10) = Sheets(i).Name
Set ws = Worksheets(i)
If ws.Name <> sSumSheet And ws.Name <> "Pop List" Then
Sheets(sSumSheet).Cells(i, 1).Value = ws.Name
Sheets(sSumSheet).Cells(i, 2).Value = ws.Cells(1, 6).Value
End If
Next
'
' Macro6 Macro
' Macro recorded 08/12/2006 by
'
'
End Sub
As you will notice I have removed the message box and i = i + 1 from the code as you suggested. What happens now is a little strange but almost right...
The index list is created (in columns D&E which is correct) but does not leave out 'Index' & 'Prop List'. In addition to this however, columns A&B are filled with the list of properties excluding 'Index' & 'Prop List' together with the population figures?! Whats going on?
Cheers
Bookmarks