That would be impossible to diagnose without seeing the rest of the function... Even then, the problem may or may not be with the function - it could be with how you're calling it and/or how you're interpreting whatever it returns.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Hi,

I have put in more details below.
How should I declare AlighTxt?

Sub Insert_Seven_Column()

Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=1, Numcolumns:=7)
myTable.Select
Call Format_Table(12, wdAlignParagraphRight)

End Sub

Function Format_Table(fontsize As Single, AlignTxt As Long)

With Selection
.Font.Name = "Arial"
.Font.Size = fontsize
.ParagraphFormat.Alignment = AlighTxt

.MoveDown Unit:=wdLine, count:=1
.TypeParagraph
End With

End Function

Thank you in advance for your time.

Regards
Andy