Rich,

Don't know if this'll solve your problem but you can cut your code down to:

'CUSJHAATM
Selection.AutoFilter Field:=1, Criteria1:="CUSJHAATM"
Cells.Select
Selection.Copy Destination:= Sheets("CUSJHAATM").Range("A1")
Sheets("qry_all").Select
Application.CutCopyMode = False
Etc..............

HTH
Henry

"Rich96" wrote in message
...
I keep getting an error when it hits the 16th library. Basically I have
one worksheet with all information. I'm running this macro to split to
seperate worksheets which are already there. I've closed every
application and even rebooted. I still get not enough memory. I've
even split the macro into smaller ones but still get the error. Any
help/suggestions??



Sub split_libs()
'
' split_libs Macro
' Macro recorded 9/19/2003 by rbateman
'CUSJHAATM
Selection.AutoFilter Field:=1, Criteria1:="CUSJHAATM"
Cells.Select
Selection.Copy
Sheets("CUSJHAATM").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("qry_all").Select
Application.CutCopyMode = False

'DATJHAATM
Selection.AutoFilter Field:=1, Criteria1:="DATJHAATM"
Cells.Select
Selection.Copy
Sheets("DATJHAATM").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("qry_all").Select
Application.CutCopyMode = False