・アクティブブックのウィンドウを画面サイズに合わせて最大化します。

[Sample]

Sub pus_ActiveWindow_Full()

   With ActiveWindow
      '通常表示に設定
       .WindowState = xlNormal
      'ウィンドウを左上に設定
      .Left = 0
      .Top = 0
      '高さ及び幅を最大に設定
      .Height = Application.UsableHeight
      .Width = Application.UsableWidth
      'ウィンドウサイズの固定化
      .EnableResize = False
   End With

End Sub