How can i remove the "=" when i get a formula in excel and pull it into VBA

[tonywatsonhelp]

Hi Everyone,
hoping someone can help me,
I've a small sample of a verey large macro but it should show you what i need

heres the code

Sub test1()

Dim cell As Range
For Each cell In Selection
    If cell.HasFormula Then
    frml = cell.Formula
    MsgBox frml
        End If
Next

End Sub

now what i want is the same as this but instead of bringing in the formula with the "=" at the begining just remove the "="

so currently msgbox gives me say "=Sum(A1:G7)"

I just want "Sum(A1:G7)" so simple remove the "=" from the front of the value we get

please help if you can

Thanks
Tony

 

[mohadin]

Hi
Try

Sub test1()
    Dim cell As Range
    For Each cell In Selection
        If cell.HasFormula Then
            frml = cell.Formula
            MsgBox Replace(frml, "=", "")
        End If
    Next
End Sub

 

[RoryA]

I'd use:

frml = Mid$(cell.Formula, 2)

 

[tonywatsonhelp]

thank you Rory