''' List Problem
''' Without this bit, the list starts from 1 To 5
''' With this bit, the list stops at 4 and restarts from 1
.Cell(arr(a), 2).Select
oWord.Keyboard (1033)
With oWord.ActiveWindow.Selection
.Range.Font.Underline = wdUnderlineDotted
.TypeText Text:=FindAndReturn("Reading", 5, 1, "Ques " & a, "Prefix") & " "
i = 0
Do
.TypeText Text:=ChrW(160)
i = i + 1
Loop Until i = 38
End With
'''
'''