Loop through all worksheets and copy the data to the 'summary worksheet. For Each xSheet In ActiveWorkbook.Worksheets      If InStr(0, xSheet.Name, "ACCOUNT") And xSheet.Range("B0") <> "No Summary Available" Then _          Set copyRng = xSheet.