Code to copy data from multiple worksheets

Put the following before your "wbTargetBook.Sheets(strName).Select"

For Each Current In Worksheets
strName = Current.Name
if (left(strName,5) = "Array") then

End the If and close the Loop wherever you think is best (do you save first etc?), you'll also however need to add in a bit to paste following on from the last row used, apologies, Im not near my Excel so cant quite work that bit out.