Hi,

I have made a list of option button. When I select a particular option, the
excel should identify and delete the previous object names starting with
"onstrfr". However, when it identifies the correct obj name "onstrfr", the
obj.Delete gives "Run-time error '1004': Application-defined or
object-defined error".

I'll be grateful if someone can help me to solve this problem.

Loy
=== FROM Sheet1=======
Private Sub on3wdgtrfroption_Click()
Call Sheet2.Deleteonstrfr
Call Sheet2.OnshoreTrfr(myValue, 2)
End Sub

===From Sheet2========

Sub Deleteonstrfr()
Dim Obj As Object
For Each Obj In ThisWorkbook.Sheets("SLD").Shapes
If Left(Obj.Name, 7) = "onstrfr" Then
MsgBox Obj.Name
Obj.Delete
End If
Next Obj
End Sub