Private Sub GenerateIndex()
Set fs = CreateObject("Scripting.FilesystemObject")
Set a = fs.CreateTextFile("Everyone.html")
a.WriteLine ("<html><body>")
For i = 2 To 76
a.WriteLine ("<a href='" & Cells(i, 5) & "'>" & Cells(i, 3) & "</a><br />")
Next
a.WriteLine ("</body></html>")
a.Close
Set a = Nothing
Set fs = Nothing
End Sub