Or, same thing with

use in &lcStr

instead of select followed by use...

David, somehow I knew after reading your previous reply that you'd be writing a little function to do the job better :-)

Take care,
Joe

>Michelle,
>
>You can also write a udf that takes a list of table names and closes them
>
>

procedure CloseTables( pcTable1, pcTable2... pcTableN )
>local i, lcStr
>for i = 1 to pcount()
>   lcStr = "pcTable" + alltrim( str( i ) )
>   select &lcStr
>   use
>endfor
>return