Dim MyText As String
Dim DrawText As DrawingText
For i = 1 To Num_Row
For j = 1 To 5
MyText = CStr(xlsheet.Cells(i, j ))
Set DrawText = MyView.Texts.Add(MyText, 0, 0)
'DrawText.Text = MyText
DrawText.SetFontSize 0, 1, 2.5
DrawText.SetFontName 0, 1, "Bell MT"
BomTable.SetCellObject i, j, DrawText
Next j
Next i