Sub Test() Dim arrPercent() As String arrPercent = Split("10,50,20,20", ",") setProz ActiveDocument.Tables(1), arrPercent End Sub