Forma i minimize/maxsimize Excel

Pokusacu da objasnim redom.
Imam formu za unos podataka i stavio sam da mi se prilikom startovanja fajla vidi samo ona, dok je Excel minimizovan. To je uradjeno tako sto sam u This Workbook stavio kod:

Private Sub Workbook_Activate()
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
Load UserForm1
UserForm1.Show
End Sub

To funkcionise OK, medjutim potrebno mi je da iz Forme pritiskom na dugme otvorim neki radni list npr Sheet1 i da on bude maksimizovan. Pokusao sam da dugmetu pored ostalog stavim i

Worksheets("Sheet1").Activate
ActiveWindow.WindowState = xlMaximized

ali ne uspeva. Napominjem da na Sheetu1 imam dugme kojim se vracam na formu sa "UserForm1.Show" pa bi bilo dobro da se prilikom vracanja Excel opet minimizuje

Private Sub Workbook_Activate()
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
Load UserForm1
UserForm1.Show
End Sub



Worksheets("Sheet1").Activate
ActiveWindow.WindowState = xlMaximized -ovaj deo izmeni u
Application.WindowState= xlMaximized

Potpis

djole