'Code.. Do I = I + 1 L = 0 Do L = L + 1 G = L & "x" & I & "=" & I * L & IIf(L = I, vbCrLf, " ") T = T & G & IIf(Len(Trim(G)) = 5," ", "") Loop Until L = I Loop Until I = 9 MsgBox T '----- Function IIf(tf,t,f) If tf Then IIf = T Else IIf = F End Function