Boa tarde!!

Tente...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  ActiveWindow.WindowState = xlMaximized
  Application.WindowState = xlMaximized
  Application.DisplayFullScreen = True
End Sub

Opa! Boa tarde, Alexandre!
Funciona, só quando eu cliclo em outra guia as plans também estão em tela cheia, eu gostaria que voltassem em modo normal .

Doni

Boa tarde!!

Aqui tem tudo que precisa para referenciar os objetos via VBA.
http://www.globaliconnect.com/excel/ind ... Itemid=475

Att

Boa noite!!

Se leu o link, verá como referenciar e criar uma condição...
Como:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If ActiveSheet.Name = "Plan1" Then
    Application.DisplayFullScreen = True
        Else
    Application.DisplayFullScreen = False
 End If
End Sub

Att

Valeu Alexandre!
Vou tentar aprender mais, valeu pela dica do site.

Abração!

Doni

Boa noite!!

Se a dica foi útil, por gentileza, click na mãozinha!!!

Obrigado pelo retorno!!

Att