The code works but I need the magicwayofgettingsheetname()

Code:
Public Function Read_Excel(ByVal sFile As String) As ADODB.Recordset

            On Error GoTo fix_err
            Dim rs As ADODB.Recordset
            rs = New ADODB.Recordset
            Dim sconn As String
            Dim strSql As String
            Dim magicsheetname as String



            rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
            rs.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
            rs.LockType =  ADODB.LockTypeEnum.adLockBatchOptimistic

            sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile

            magicsheetname = magicwayofgettingsheetname()
           
 strSql = "SELECT * FROM " & magicsheetname

            rs.Open(strSql, sconn)
            Read_Excel = rs
            rs = Nothing
            Exit Function
fix_err:
         ' handle error
        End Function