I agree. Sorry for not responding earlier, last week was really hectic, first work and then preparing next Orbis patch. I will try to make a list of what is needed, also you can help Opera with NgomeleHey, we could definitely use some building art!
j = 80
If Cells(j, i) <> "" Then
Print #1, " <GreatPeoples>"
For j = 80 To 85
If Cells(j, i) <> "" Then
Print #1, " <GreatPeople>"
Print #1, " <GreatPeopleType>" & Cells(j, 1) & "</GreatPeopleType>"
Print #1, " <bGreatPeople>1</bGreatPeople>"
Print #1, " </GreatPeople>"
End If
Next
Print #1, " </GreatPeoples>"
End If