or
Code:Function GetText(frm As Range) As String GetText = Split(Replace(Mid(frm.Formula, 2), "'", ""), "!")(0) End FunctionCode:Function GetRow(frm As Range) As Long GetRow = frm.row End Function
or
Code:Function GetText(frm As Range) As String GetText = Split(Replace(Mid(frm.Formula, 2), "'", ""), "!")(0) End FunctionCode:Function GetRow(frm As Range) As Long GetRow = frm.row End Function
Last edited by snb; 08-20-2013 at 04:24 PM.
Bookmarks