Sn:simendifer
Bende herhangi bir hata vermeden çalıştığı için tahminimce kullandığınız sistem ve eksik komponentlerden kaynaklı olabilir.Birde belirttiğiniz kodları silerek deneyiniz program açıldığında tam ekran oluyor 2010 desteklememmiş olabilir.

Ana Sayfada silinecek

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Shapes("CommandButton4").Top = Target.Top

ActiveSheet.Shapes("CommandButton4").Left = Target.Left

End Sub

Modulde silinecek

x = GetSystemMetrics(0) ' x eksenindeki genişliği veriyor

    Y = GetSystemMetrics(1) ' y eksenindeki genişliği veriyor

    ActiveWindow.Zoom = 70 * x / 1024

    Application.DisplayFullScreen = True

Not:Ofice 2003 ve 2007 ile denenmiştir.