* Bring Excel windows to foreground (doesn't work...) LOCAL loShell loShell = CreateObject ("WScript.Shell") IF loShell.AppActivate (loExcel.Caption) = .T. * loShell.SendKeys ("% ~") * Shown instance of Excel to the fore # DEFINE xlMinimized -4140 # DEFINE xlMaximized -4137 loExcel.WindowState = xlMinimized && displace window loExcel.WindowState = xlMaximized && Expand the window, leading to its activation ELSE MessageBox ("Application " + loExcel.Caption + " not found") ENDIF>Hilmar -