Sorry, Sent the wrong one.

Sub ExtactText()
Dim nStart As Integer, nEnd As Integer
Dim txtString As String

txtString = ActiveCell

nStart = InStr(1, txtString, "FROM") + 5
nEnd = InStr(1, txtString, "WHERE")
txtString = Mid(txtString, nStart, nEnd - nStart - 1)

ActiveCell.Offset(0, 1) = txtString
End Sub