thanks, and now I resolved my problem by using my code:
With MSF1
.Cols = .Cols + 1
.ColPosition(.Cols - 1) = 2 '2 is position added
.TextMatrix(0, 2) = "Type row" 'set text for header of new column
MSF1.ColWidth(2) = Me.TextWidth(MSF1.TextMatrix(0, 2)) + 600
'set the width for new column
MSF2.ColAlignment(2) = 4 'align center
End With