printe fra excel med visualbacis

Hej jeg har i en gammel excel ver 97 lavet en side der kan printe 4 nummer ud pr.side ud fra start/ slut box med har nu åbnet Excel arket i win xp/ Excel2003 og nu virker det ikke mere er der nogen der kan hjælpe.
Det der sker er det bliver ved med at printe de 4 første nr ud skærmen bliver godt nok opdateret med ikke på printet

Private Sub cmdStart_Click()
Dim resultat
Dim start
Dim slut
Dim tæl

start = TextBox5.Value
slut = TextBox6.Value
resultat = slut - start
tæl = 0

Do While tæl <= resultat
    TextBox1 = start + tæl
    tæl = tæl + 1
    TextBox2 = start + tæl
    tæl = tæl + 1
    TextBox3 = start + tæl
    tæl = tæl + 1
    TextBox4 = start + tæl
    tæl = tæl + 1
   
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
Loop
End Sub

Private Sub TextBox4_Change()