Replace Text In Mutiple Text Boxes

Trying to Find a specific word and Replace with another within a textbox ( created from the drawing tool, as well as the control toolbar) The textboxes contain loads of text information.

as an example
The word "Apple" to be replaced with "Orange"

I came across this code from the archives (compliments of Dave Hawley)


Sub ReplaceTextBoxText()
Dim sTextBox As Shape
Dim wSheet As Worksheet
Set wSheet = Sheets.Add()
For Each sTextBox In Sheet1.Shapes

I've tried several variations with no results. (perhaps it's to extensive for my modest needs)