Hent navne og fødselsdatoer fra andet ark

Jeg har lavet en Excelfil, i Excel 2003, der bruges til at opregne timeforbrug for indtil 24 forskellige personer.
Ved hjælp af kode oprettes der selvstændige ark for hver person, hvert ark navngives i fanen med personens navn.
Navnene hentes fra en liste over navne og fødselsdage, F4:F27, i arket Beboer-Oversigt.
Det virker som det skal (bortset fra at arkene optræder i omvendt orden i forhold til listen?).
Jeg bruger denne kode:

Sub CommandButton1_Click()
    Call CreateWorksheets(Sheets("Beboer-Oversigt").Range("F4:F27"))
End Sub

Private Sub CreateWorksheets(Names_Of_Sheets As Range)
Application.ScreenUpdating = False
    Dim Sheet_Name As String
    Dim i As Integer
    No_Of_Sheets_to_be_Added = Names_Of_Sheets.Rows.Count
    For i = 1 To No_Of_Sheets_to_be_Added
        Sheet_Name = Names_Of_Sheets.Cells(i, 1).Value
        'Opret kun ark hvis det ikke findes i forvejen og navnet er længere end nul karakterer
        If (Sheet_Exists(Sheet_Name) = False) And (Sheet_Name <> "") Then
            Sheets("Skabelon").Copy Before:=Sheets(1)
            ActiveSheet.Name = Sheet_Name
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            Application.GoTo Reference:=Worksheets(Sheet_Name).Range("B3"), _
            Scroll:=False
    End If
    Next i
    Sheets("Beboer-Oversigt").Move Before:=Sheets(1)
    Application.ScreenUpdating = True
    Application.GoTo Reference:="Hjem"
End Sub


Hvert oprettet ark skulle gerne have personens navn og fødselsdato som overskrift.
Hvordan gør jeg det?