Try this

Sub Shink()
With ActiveWorkbook
Application.WindowState = xlMinimized
End With
End Sub

"donwb" wrote:

I have 2 workbooks open in Excel.
I am trying to write code to minimise the active workbook
to the taskbar, then, when it gets there, save any changes made.
I'm using:-
Application.Workbooks(MyName).WindowsState = xlMinimised
Workbooks(MyName).Close Savechanges:=True
The first line does not work, but the second one does.
Is this just syntax, or am I trying the impossible?
donwb