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