My text box and shapes disappeared on my worksheet. I don't know how that
happened, so I don't know how to unhide them? They are visible in Print
Preview and they Print just fine, but there is a misspelled word in the text
box and I can't see it on the worksheet to fix it. Help.

Sub getnameofshapes()
On Error Resume Next
For Each sh In ActiveSheet.Shapes
MsgBox sh.Name
mv = sh.Name
MsgBox ActiveSheet.Shapes(mv).TopLeftCell.Address
Next sh
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"llamamom" wrote in message
...
My text box and shapes disappeared on my worksheet. I don't know how that
happened, so I don't know how to unhide them? They are visible in Print
Preview and they Print just fine, but there is a misspelled word in the
text
box and I can't see it on the worksheet to fix it. Help.

Try Ctrl 6



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"llamamom" wrote in message ...
My text box and shapes disappeared on my worksheet. I don't know how that
happened, so I don't know how to unhide them? They are visible in Print
Preview and they Print just fine, but there is a misspelled word in the text
box and I can't see it on the worksheet to fix it. Help.