Sub Test() With ActiveSelection.Shapes(1).Fill.UniformColor MsgBox "Fill Color Name: " & .Name & vbCr & _ "Components: " & .Name (True) End WithEnd Sub