With ActiveWindow
.WindowState = xlMinimized
End with

or for the application

application.WindowState = xlMinimized


to restore xlNormal

--
Regards,
Tom Ogilvy


"Amil" wrote in message
...
I've implemented one of the progress bars suggested in the threads here.
I
am looping through a named range and as the process is running, the rows
are
changing as expected. What I need is a way to minimize the current sheet
or
workbook (setting Visible=false breaks my code). I searched the VBA help
for
a way to minimize the sheet but cant find it. How can minimize the sheet
or
workbook?