Extract text from cells?

Open a new workbook

Place your formula

=(53+42+55+52+52+54+57+57+56+55+57+51+53+57+46+54+28 )/(SUM(Daily!$F$97:$F$113))

in A1 and then run this code

Sub Macro5()
'
' Macro5 Macro
' Macro recorded 3/11/2007 by Dave Morrison
Application.DisplayAlerts = False
Sheets("Sheet1").Range("A1").Copy Destination:=Sheets("Sheet2").Range("A1")
    Sheets("Sheet2").Select
    Range("A1").Select

    ActiveCell.Replace What:="=(", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True
ActiveCell = Left(ActiveCell, Len(ActiveCell) - 28)
    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="+", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1))
Application.DisplayAlerts = True

End Sub

I am not sure about deleteing

)/(SUM(Daily!$F$97:$F$113))
this example will work, but if you have different sized formulas it might not


Maybe somebody can add to this

ActiveCell = Left(ActiveCell, Len(ActiveCell) - 28)
so it will subtract the actual number of text from ")" to")"

Dude! It works!!

Thanks!

It worked grrrreat! and saved me bunches of time!
Thanks!