Okay. Simple Excel code:
Function WkDate(number as long) As String WkDate = Sheets(number).Name End Function
If I use a MsgBox Sub to te