Kopier numre fra en liste til en anden.

Jeg lavet en makro i Word til Mac der kopiere en række fra en tabel i dokument 1 til til en række i dokument 2, jeg bruger InputBox til dette, problemet er at når InputBox venter på indtastning kan jeg ikke rulle i listen i dokument 1 så jeg kan se og vælge blandt de ca. 100 numre der er.
Hvad kan jeg gøre? Jeg er også åben for ander løsninger på opgaven.
Koden kommer her. Sub KopierNummer()

Dim svar As Byte
For løkke = 1 To 20




Selection.GoTo What:=wdGoToBookmark, Name:="start"


   
svar = InputBox(prompt:="Skriv nummeret på melodien du vil kopiere.              Tast 0 for at afbryde!!", _
Title:="Intast nummeret", xpos:=10, ypos:=10)

On Error GoTo FejlBehandling

If svar = "0" Then Exit For

If Selection.Information(wdWithInTable) = True Then

        Selection.MoveDown Unit:=wdLine, Count:=svar

    End If
Selection.MoveRight Unit:=wdWord, Count:=8, Extend:=wdExtend
  Selection.Copy
  Selection.Font.Bold = wdToggle
  Selection.Font.Italic = wdToggle
 
  Windows("SætNumre").Activate
    If løkke = 1 Then
        Selection.GoTo What:=wdGoToBookmark, Name:="start"
    End If
   
   
        Selection.Paste

  If Selection.Information(wdWithInTable) = True Then
   
      If Selection.Cells(1).RowIndex = 4 Then
      hop = 2
      Else: hop = 1
      End If

    Selection.MoveDown Unit:=wdLine, Count:=hop
   
  End If

  Windows("Repertoire").Activate
 
 
  If løkke = 20 Then
  a = MsgBox(prompt:="Du er nu færdig med kopieringen af første sæt", Title:="Stop")
  End If
 
  Next
Exit Sub
FejlBehandling:

MsgBox ("Du skal skrive et tal")
Err.Clear

Resume

End Sub

Mvh. Chiefbigchief.