Francisco,

Boa Noite!

Seria mais ou menos isso, para minimizar e maximizar:

Sub Minimizar()
    Dim wkb As Workbook
    For Each wkb In Workbooks
        If wkb.Name = ThisWorkbook.Name Then ActiveWindow.WindowState = xlMinimized
    Next
End Sub
Sub Maximizar()
    Dim wkb As Workbook
    For Each wkb In Workbooks
        If wkb.Name = ThisWorkbook.Name Then ActiveWindow.WindowState = xlMaximized
    Next
End Sub

Senhores,

Ainda não consegui resolver este problema, caso eu tenha 2 planilhas em excel abertas ao mesmo tempo não estou conseguindo encontrar uma macro para que apenas feche a planilha específica que estou trabalhando.

Obrigado.

FRANCISCO RAMALHO

Boa noite!!

Tente adaptar

Sub Teste()
    Dim xl0 As New Excel.Application
    xl0.Visible = False
    xl0.Workbooks.Open "C:SeuArquivo.xls"
    xl0.WindowState = xlMinimized
    xl0.Visible = True
End Sub
Sub Test_II()
Application.ScreenUpdating = False
    Workbooks.Open "C:/Database/SeuArquivo.xls"
    ActiveWindow.WindowState = xlMinimized
Application.ScreenUpdating = True
End Sub

Agora se nada do que foi postado resolver, poste seu arquivo compactado, para que o pessoal possa ajuda-lo!!

Att