I use this code to test colors, etc. in a workbook which is for testing
purposes only.

Sub TestShp()
Dim MyDocument
Set MyDocument = Worksheets(2)
MyDocument.Shapes.AddShape msoShape32pointStar, 250, 250, 100, 200
MyDocument.Shapes(1).Fill.ForeColor.RGB = RGB(255, 100, 100)
Set newWordArt =
MyDocument.Shapes.AddTextEffect(PresetTextEffect:= msoTextEffect1,
Text:="Test", fontName:="Arial Black", fontSize:=36, FontBold:=msoFalse,
FontItalic:=msoFalse, Left:=10, Top:=10)
Counter = 0
Do
With MyDocument.Shapes(1)
.IncrementLeft Counter + 70
.IncrementTop (Counter * -1) + (-50)
.IncrementRotation 30
End With
Counter = Counter + 25
WaitTime
Loop While Counter < 100
Worksheets(2).Shapes(2).Delete
Worksheets(2).Shapes(1).Delete
End Sub

The mystery is this. The msoShape suddenly quit appearing while the WordArt
TextEffect worked just fine.

Part two of the mystery is that it only occurs in this workbook. I can copy
this code to any other workbook and it works fine.

Can this be attributed to a corrupted file or is there some other code that
I might have run that would have turned off the msoShape visible properties.
I have checked all of the code in the module and cannot find anything that
sets the visible properties to false. Does anyone have a clue?

This was previously posted without the code and no one responded.