ちょっとソースを整理

Sub 置換()
　　Dim tbox As Object
　　Dim findStr As String
　　Dim replaceStr As String
　　Dim count As Long
　　Dim i As Long
　　Dim myDocument As Worksheet

　　findStr = InputBox("置換対象文字列")
　　replaceStr = InputBox("置換文字")
　　Set myDocument = Worksheets(1)
　　myDocument.Shapes.SelectAll

　　For i = 1 To myDocument.Shapes.count
　　　　If myDocument.Shapes(i).Type = msoGroup Then
　　　　　　Selection.ShapeRange.Ungroup.Select
　　　　　　For Each tbox In Selection.ShapeRange
　　　　　　　　tbox.TextFrame.Characters.Text = Replace(tbox.TextFrame.Characters.Text, findStr, replaceStr)
　　　　　　Next
　　　　　　Selection.ShapeRange.Regroup.Select
　　　　Else
　　　　　　Set tbox = myDocument.Shapes(i).TextFrame
　　　　　　tbox.Characters.Text = Replace(tbox.Characters.Text, findStr, replaceStr)
　　　　End If
　　Next
End Sub