Sub Test() Dim eff As Effect Dim bDone As Boolean If ActiveShape Is Nothing Then MsgBox "Nothing selected", vbCritical Exit Sub End If bDone = False If ActiveShape.Next.Type = cdrDropShadowGroupShape Then Set eff = ActiveShape.Next.Effect eff.DropShadow.Opacity = 80 bDone = True End If If Not bDone Then MsgBox "The selected shape doesn't have a dropshadow", vbCritical End IfEnd Sub