For y = 0 To dt.Rows.Count - 1
For z = 0 To dt.Columns.Count - 1
.ShapeRange.GroupItems(Index:=tot).TextFrame.TextRange.Characters(Start:=1, Length:=0).Select()
.TextRange.Characters(Start:=1, length:=0).Select()
.TextRange.Text = dt.Rows(y)(z)
.TextRange.Font.Name = strFontName
.TextRange.Font.Size = intFontSize
.TextRange.Font.Italic = intFontItalic
.TextRange.Font.Bold = intFontBold
.TextRange.Font.Color.RGB = RGB(intR, intG, intB)
if intAlignment > 0 Then
.TextRange.Paragraphs(1, 1).ParagraphFormat.Alignment = intAlignment
End If
tot = tot - 1
Next
Next