Hi Michael

Thanks for the code. I will try it out and trouble you again if I have any quries.

>When my users run the menu option to reindex/pack tables I shut down all open forms. Each form prompts to save.
>
>If Messagebox("This procedure WILL shut down all unnecessary windows. Do you wish to continue?",20,"Warning") = 6
>* let's attempt to close all windows
> x = 0
> Do While !Inlist(Wontop(),"SPLASH")
> x = x+1
> _Screen.ActiveForm.Release()
> x = x-1
> Enddo
>If !Inlist_Screen.ActiveForm.Name, ;
> "MainData", "FrmMailings", "ProcessOrdersForm")
> Close Data
> Do Form Forms\reindexmover
>Else
> =Messagebox("I cannot close all windows. You must manually close all open forms/screens to reindex, try again...",20,"Warning")
> Endif
>
>Endif
>Cheerio