Is this something like what you're after?
Function TABNAME(sheetnum As Long) As String
TABNAME = Sheets(sheetnum).Name
Usage: =TABNAME(1) will return the name of the tab. If you wanted to use 'Sheet01' in the function you could add some code to extract the number out of the string.