Hate to poach-
but I need to get on w/ this. This is for the poster last week I am helping about combining files into one workbook/sheet, can you help me out w/ this line-
I need then to use your approach and combine it w/ this line-
ActiveSheet.Name = Left(wbkName, Len(wbkName) - 4) & Chr(32) & Format(Now, "m-dd-yy")