For y = 1 To frandatalrow
Set nb = Workbooks.Add
Set ns = nb.Worksheets(1)
ardata.Activate
Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=1, Criteria1:=frandata.Range("A" & y).Value
ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=11, Criteria1:="DA"
ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=9, Criteria1:="ccauto"
ardata.Range(Cells(1, 2), Cells(arlrow, 8)).SpecialCells(xlCellTypeVisible).Copy
ns.Cells(1, 1).PasteSpecial xlPasteAll
ns.Columns.AutoFit
sFilename = frandata.Range("A" & y).Value
nb.SaveAs sfolca & "CC Auto\" & sFilename & ".xlsx", 51
nb.Close False
ardata.ShowAllData
Set nb = Workbooks.Add
Set ns = nb.Worksheets(1)
ardata.Activate
Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=1, Criteria1:=frandata.Range("A" & y).Value
ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=11, Criteria1:="DA"
ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=9, Criteria1:="ccman"
ardata.Range(Cells(1, 2), Cells(arlrow, 8)).SpecialCells(xlCellTypeVisible).Copy
ns.Cells(1, 1).PasteSpecial xlPasteAll
ns.Columns.AutoFit
sFilename = frandata.Range("A" & y).Value
nb.SaveAs sfolca & "CC Manual\" & sFilename & ".xlsx", 51
nb.Close False
ardata.ShowAllData
Set nb = Workbooks.Add
Set ns = nb.Worksheets(1)
ardata.Activate
ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=1, Criteria1:=frandata.Range("A" & y).Value
ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=11, Criteria1:="HE"
ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=9, Criteria1:="achauto"
ardata.Range(Cells(1, 2), Cells(arlrow, 8)).SpecialCells(xlCellTypeVisible).Copy
ns.Cells(1, 1).PasteSpecial xlPasteAll
ns.Columns.AutoFit
sFilename = frandata.Range("A" & y).Value
nb.SaveAs sfolca & "ACH Manual\" & sFilename & ".xlsx", 51
nb.Close False
ardata.ShowAllData
Set nb = Workbooks.Add
Set ns = nb.Worksheets(1)
ardata.Activate
ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=1, Criteria1:=frandata.Range("A" & y).Value
ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=11, Criteria1:="HE"
ardata.Range(Cells(1, 1), Cells(arlrow, arlcol + 5)).AutoFilter Field:=9, Criteria1:="achman"
ardata.Range(Cells(1, 2), Cells(arlrow, 8)).SpecialCells(xlCellTypeVisible).Copy
ns.Cells(1, 1).PasteSpecial xlPasteAll
ns.Columns.AutoFit
sFilename = frandata.Range("A" & y).Value
nb.SaveAs sfolca & "ACH Manual\" & sFilename & ".xlsx", 51
nb.Close False
ardata.ShowAllData
Next y
Bookmarks