issue: I put it into my PERSONAL, but in running it I got a "Subscript out of Range" at this line:. I got around that by changing "ThisWorkbook" to "ActiveWorkbook", and that seemed to fix the problem.Code:.Range("a1").Resize(, UB2).Value = ThisWorkbook.Worksheets(Replace(ShtName, i - 2, "")).Range("a1").Resize(, UB2).Value
Whoops, there were 2 more instances of "ThisWorkbook" that I had to change to "ActiveWorkbook"




Reply With Quote

Bookmarks