Having problems with the code below on a 2010 Excel spreadsheet. The function flags me at first line and highlights Mid. I get a "compile error, cannot find project or library". I'm trying to set GetSheetName = m_sSheet but the GetSheetName function is not declared as returning any type. Any suggestions please?
Code:Function GetSheetName(ByVal m_sFormula As String) As String Dim m_sSheet As String m_sSheet = Mid(m_sFormula, 2, InStr(m_sFormula, "!") - 2) If InStr(m_sSheet, "'") Then m_sSheet = Mid(m_sSheet, 2, Len(m_sSheet) - 2) End If GetSheetName = m_sSheet End Function