run out of memort
 

I use this code in a program I wrote and usually bombs out
the program with an error message the memory is running
low.
for pp = 1 to 30
Workbooks(datawkbk).Sheets(pp).Range("q:q").Copy Workbooks
("history.xls").Sheets(pp).Range("a:a")
next pp

Any ideas on how use a variation of copying a columns from
1 workbook to another will be appreciated.
thanks, Eric