Sub Test() MsgBox "Fountain fill contains " & ActiveShape.Fill.Fountain.Colors.Count & _ " intermediate color points."End Sub