ActiveWindow.Zoom = 110
ActiveWindow.Zoom = 100
CommandButton3.Font.Size = 14
Dim VBP As Object ' as VBProject
If Val(Application.Version) >= 10 Then
    On Error Resume Next
    Set VBP = ActiveWorkbook.VBProject
    If Err.Number <> 0 Then
        MsgBox "Please enable Trust access to VBA project object model to continue"
        Application.CommandBars.ExecuteMso ("MacroSecurity")

        ThisWorkbook.VBProject.References.AddFromGuid _
        GUID:="{CD000000-8B95-11D1-82DB-00C04FB1625D}", _
        Major:=0, Minor:=0 'Use zeroes to default to latest version
        'On Error GoTo 0

        Exit Sub
    End If
End If
Call Sendemail