[vba]strFileName = Mid$(wbkname, instrrev(wbkName, "\") + 1)
ActiveSheet.Name = Left$(Left$(strFileName, Len(strFileName) - 4), 23) & Chr(32) & Format(Now, "m-dd-yy")
[/vba]
[vba]strFileName = Mid$(wbkname, instrrev(wbkName, "\") + 1)
ActiveSheet.Name = Left$(Left$(strFileName, Len(strFileName) - 4), 23) & Chr(32) & Format(Now, "m-dd-yy")
[/vba]
Posting Permissions
Reply With Quote