Hi There,

Sorry can you clarify, you want to extract the data in columns A- AJ and the sheet name?

i would use something like

isheetno = 1
do until isheetno>workbooks(1).sheets(isheetno).count

sSheetname workbooks(1).sheets(isheetno).name
'copy this info
workbooks(1).sheets(isheetno).range("A1:AJ10000").copy
'Paste this information where ever you want or collect it in an array

iSheetno = iSheetno+1
loop