G'Day Ulrich,

Try this:

Sub ColumnAlign()
' Using your sample code.....
   Set Tbl = WordDoc.Tables.Add(somRange, intRows, intCols)
   ' You have put some text into a cell
   Tbl.Cell(iRow, iCol).Range.Text = someText

   ' We have NO IDEA where the insertion point is at this time....
   '....so select the text we inserted....
   Tbl.Cell(iRow, iCol).Range.Select

   ' Now that the Insertion Point is in that same Cell - Select the
Column.....
   Selection.SelectColumn
   ' ....and Format It
   Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
End Sub