Sub Test() Dim s As Shape Dim tf As TextureFill Dim ss As String Dim r As VbMsgBoxResult For Each s In ActivePage.Shapes If s.Fill.Type = cdrTextureFill Then Set tf = s.Fill.Texture s.CreateSelection ' Select the shape ss = "Texture Name: " & tf.TextureName & vbCr & "Library Name: " If tf.LibraryName = "" Then ss = ss & "Styles" Else ss = ss & tf.LibraryName End If ss = ss & vbCr & "Style Name: " & tf.StyleName & vbCr ss = ss & vbCr & "Press OK to continue" r = MsgBox(ss, vbOKCancel) If r = vbCancel Then Exit For End If Next s End Sub