Page 1 of 3 123 LastLast
Results 1 to 10 of 30

Thread: microsoft excel has stopped working.

  1. #1
    Board Regular
    Join Date
    Sep 2019
    Posts
    53
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Post microsoft excel has stopped working.

    [IMG]C:\Users\jefferson.ehem\Downloads\1111.jpg[/IMG]

    It always happen when I closed the excel and open it again by clicking the assigned macro

  2. #2
    Board Regular Michael M's Avatar
    Join Date
    Oct 2005
    Location
    South Western NSW
    Posts
    17,820
    Post Thanks / Like
    Mentioned
    18 Post(s)
    Tagged
    2 Thread(s)

    Default Re: microsoft excel has stopped working.

    It would help if you provided the macro that is causing the problem !
    AND
    we can't see an image that is on your HDD !
    Regards
    Michael M
    ---------------------------------------
    The more I learn, the less I seem to know.....A Please and Thank You cost nothing !
    It's easier to debug if we can see the whole macro !
    Home 2007 & 2013

    - Posting guidelines, forum rules and terms of use

    - To download Mr Excel HTML Maker

    - Try searching for your answer first, see how

    - Read the FAQs

    - List of BB codes


    [CODE]Place Your Code Here[/CODE]

  3. #3
    Board Regular
    Join Date
    Sep 2019
    Posts
    53
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: microsoft excel has stopped working.

    Quote Originally Posted by Michael M View Post
    It would help if you provided the macro that is causing the problem !
    AND
    we can't see an image that is on your HDD !
    Sub PerformanceScorecardforBranchAuditTeam()
    Load Scorecard
    Scorecard.Show
    End Sub

    that's my macro man .. well, it works well but my problem is when i closed my excel and open it again my excel will say "Microsoft excel has stopped working." when i clicked my assigned macro

  4. #4
    Board Regular Michael M's Avatar
    Join Date
    Oct 2005
    Location
    South Western NSW
    Posts
    17,820
    Post Thanks / Like
    Mentioned
    18 Post(s)
    Tagged
    2 Thread(s)

    Default Re: microsoft excel has stopped working.

    Is scorecard an Excel form or a 3rd party app.

    Also, look here for possible solutions.

    https://support.office.com/en-us/art...5-4ca6853a1ff4
    Regards
    Michael M
    ---------------------------------------
    The more I learn, the less I seem to know.....A Please and Thank You cost nothing !
    It's easier to debug if we can see the whole macro !
    Home 2007 & 2013

    - Posting guidelines, forum rules and terms of use

    - To download Mr Excel HTML Maker

    - Try searching for your answer first, see how

    - Read the FAQs

    - List of BB codes


    [CODE]Place Your Code Here[/CODE]

  5. #5
    Board Regular
    Join Date
    Sep 2019
    Posts
    53
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: microsoft excel has stopped working.


  6. #6
    Board Regular
    Join Date
    Sep 2015
    Posts
    563
    Post Thanks / Like
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)

    Default Re: microsoft excel has stopped working.

    Why don't you upload the file. ?

    Last edited by NimishK; Sep 16th, 2019 at 11:46 PM.

  7. #7
    Board Regular
    Join Date
    Sep 2019
    Posts
    53
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: microsoft excel has stopped working.

    Quote Originally Posted by NimishK View Post
    Why don't you upload the file. ?
    here's my code man . been searching for weeks and i found some source that maybe my excel file have a code that runs first my userform_initialize and i cant find where it is .. can you help me with this ??

    Code:
    Private Sub adddata_Click()
    Dim wks As Worksheet
    Dim addnew As Range
    Dim addup(15) As Double
        Set wks = Sheet9
        Set addnew = wks.Range("AG3").Offset(0, 0)
            If ecYes.Value = True Then
                addnew.Offset(0, 1).Value = ecYes.Caption
                ElseIf ecNo.Value = True Then
                addnew.Offset(0, 1).Value = ecNo.Caption
                ElseIf ecNa.Value = True Then
                addnew.Offset(0, 1).Value = ecNa.Caption
            End If
            If ecYes1.Value = True Then
                addnew.Offset(0, 2).Value = ecYes1.Caption
                ElseIf ecNo1.Value = True Then
                addnew.Offset(0, 2).Value = ecNo1.Caption
                ElseIf ecNa1.Value = True Then
                addnew.Offset(0, 2).Value = ecNa1.Caption
            End If
            If ecYes2.Value = True Then
                addnew.Offset(0, 3).Value = ecYes2.Caption
                ElseIf ecNo2.Value = True Then
                addnew.Offset(0, 3).Value = ecNo2.Caption
                ElseIf ecNa2.Value = True Then
                addnew.Offset(0, 3).Value = ecNa2.Caption
            End If
            If ecYes3.Value = True Then
                addnew.Offset(0, 4).Value = ecYes3.Caption
                ElseIf ecNo3.Value = True Then
                addnew.Offset(0, 4).Value = ecNo3.Caption
                ElseIf ecNa3.Value = True Then
                addnew.Offset(0, 4).Value = ecNa3.Caption
            End If
            If ecYes4.Value = True Then
                addnew.Offset(0, 5).Value = ecYes4.Caption
                ElseIf ecNo4.Value = True Then
                addnew.Offset(0, 5).Value = ecNo4.Caption
                ElseIf ecNa4.Value = True Then
                addnew.Offset(0, 5).Value = ecNa4.Caption
            End If
            If ecYes5.Value = True Then
                addnew.Offset(0, 6).Value = ecYes5.Caption
                ElseIf ecNo5.Value = True Then
                addnew.Offset(0, 6).Value = ecNo5.Caption
                ElseIf ecNa5.Value = True Then
                addnew.Offset(0, 6).Value = ecNa5.Caption
            End If
            If ecYes6.Value = True Then
                addnew.Offset(0, 7).Value = ecYes6.Caption
                ElseIf ecNo6.Value = True Then
                addnew.Offset(0, 7).Value = ecNo6.Caption
                ElseIf ecNa6.Value = True Then
                addnew.Offset(0, 7).Value = ecNa6.Caption
            End If
            If ecYes7.Value = True Then
                addnew.Offset(0, 8).Value = ecYes7.Caption
                ElseIf ecNo7.Value = True Then
                addnew.Offset(0, 8).Value = ecNo7.Caption
                ElseIf ecNa7.Value = True Then
                addnew.Offset(0, 8).Value = ecNa7.Caption
            End If
            If ecYes8.Value = True Then
                addnew.Offset(0, 9).Value = ecYes8.Caption
                ElseIf ecNo8.Value = True Then
                addnew.Offset(0, 9).Value = ecNo8.Caption
                ElseIf ecNa8.Value = True Then
                addnew.Offset(0, 9).Value = ecNa8.Caption
            End If
            If ecYes9.Value = True Then
                addnew.Offset(0, 10).Value = ecYes9.Caption
                ElseIf ecNo9.Value = True Then
                addnew.Offset(0, 10).Value = ecNo9.Caption
                ElseIf ecNa9.Value = True Then
                addnew.Offset(0, 10).Value = ecNa9.Caption
            End If
            If ecYes10.Value = True Then
                addnew.Offset(0, 11).Value = ecYes10.Caption
                ElseIf ecNo10.Value = True Then
                addnew.Offset(0, 11).Value = ecNo10.Caption
                ElseIf ecNa10.Value = True Then
                addnew.Offset(0, 11).Value = ecNa10.Caption
            End If
            If ecYes11.Value = True Then
                addnew.Offset(0, 12).Value = ecYes11.Caption
                ElseIf ecNo11.Value = True Then
                addnew.Offset(0, 12).Value = ecNo11.Caption
                ElseIf ecNa11.Value = True Then
                addnew.Offset(0, 12).Value = ecNa11.Caption
            End If
    
    
            If ecYes.Value = True Then
                addup(0) = 100
                ElseIf ecNo.Value = True Then
                addup(0) = 0
                ElseIf ecNa.Value = True Then
                addup(0) = 100
            End If
            If ecYes1.Value = True Then
                addup(1) = 100
                ElseIf ecNo1.Value = True Then
                addup(1) = 0
                ElseIf ecNa1.Value = True Then
                addup(1) = 100
            End If
            If ecYes2.Value = True Then
                addup(2) = 100
                ElseIf ecNo2.Value = True Then
                addup(2) = 0
                ElseIf ecNa2.Value = True Then
                addup(2) = 100
            End If
            If ecYes3.Value = True Then
                addup(3) = 100
                ElseIf ecNo3.Value = True Then
                addup(3) = 0
                ElseIf ecNa3.Value = True Then
                addup(3) = 100
            End If
            If ecYes4.Value = True Then
                addup(4) = 100
                ElseIf ecNo4.Value = True Then
                addup(4) = 0
                ElseIf ecNa4.Value = True Then
                addup(4) = 100
            End If
            If ecYes5.Value = True Then
                addup(5) = 100
                ElseIf ecNo5.Value = True Then
                addup(5) = 0
                ElseIf ecNa5.Value = True Then
                addup(5) = 100
            End If
            If ecYes6.Value = True Then
                addup(6) = 100
                ElseIf ecNo6.Value = True Then
                addup(6) = 0
                ElseIf ecNa6.Value = True Then
                addup(6) = 100
            End If
            If ecYes7.Value = True Then
                addup(7) = 100
                ElseIf ecNo7.Value = True Then
                addup(7) = 0
                ElseIf ecNa7.Value = True Then
                addup(7) = 100
            End If
            If ecYes8.Value = True Then
                addup(8) = 100
                ElseIf ecNo8.Value = True Then
                addup(8) = 0
                ElseIf ecNa8.Value = True Then
                addup(8) = 100
            End If
            If ecYes9.Value = True Then
                addup(9) = 100
                ElseIf ecNo9.Value = True Then
                addup(9) = 0
                ElseIf ecNa9.Value = True Then
                addup(9) = 100
            End If
            If ecYes10.Value = True Then
                addup(10) = 100
                ElseIf ecNo10.Value = True Then
                addup(10) = 0
                ElseIf ecNa10.Value = True Then
                addup(10) = 100
            End If
            If ecYes11.Value = True Then
                addup(11) = 100
                ElseIf ecNo11.Value = True Then
                addup(11) = 0
                ElseIf ecNa11.Value = True Then
                addup(11) = 100
            End If
        addup(12) = (addup(0) + addup(1) + addup(2) + addup(3) + addup(4) + addup(5) + addup(6)) / 7
        eclbl.Caption = addup(12)
        Me.eclbl.Caption = Format(Me.eclbl.Caption, "##0.00")
        addup(13) = (addup(7) + addup(8) + addup(9) + addup(10) + addup(11)) / 5
        eclbl1.Caption = addup(13)
        Me.eclbl1.Caption = Format(Me.eclbl1.Caption, "##0.00")
        addup(14) = (addup(12) + addup(13))
        addup(15) = addup(14) / 2
            If addup(15) = (addup(14) / 2) Then
                eclbl2.Caption = addup(15)
                Me.eclbl2.Caption = Format(Me.eclbl2.Caption, "##0.00")
            End If
        atqlbl2.Caption = eclbl2.Caption
        addnew.Offset(0, 0).Value = eclbl2.Caption
    
    
                Dim total2, Totals(3) As Double
    
    
                    If atqlbl3.Caption = "" Then
                        atqlbl3.Caption = (atqlbl2.Caption * 0.05) / 0.4
                        Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
                    End If
                    If atqlbl.Caption <> "" And atqlbl2.Caption <> "" Then
                        total2 = 0
                        Totals(0) = atqlbl.Caption * 0.25
                        Totals(1) = atqlbl2.Caption * 0.05
                        total2 = CDbl(Totals(0)) + CDbl(Totals(1))
                        atqlbl3.Caption = total2 / 0.4
                        Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
                    End If
                    If atqlbl1.Caption <> "" And atqlbl2.Caption <> "" Then
                        total2 = 0
                        Totals(0) = atqlbl1.Caption * 0.1
                        Totals(2) = atqlbl2.Caption * 0.05
         
                        total2 = CDbl(Totals(0)) + CDbl(Totals(2))
                        atqlbl3.Caption = total2 / 0.4
                        Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
                    End If
                    If atqlbl.Caption <> "" And atqlbl1.Caption <> "" And atqlbl2.Caption <> "" Then
                        total2 = 0
                        Totals(0) = atqlbl.Caption * 0.25
                        Totals(1) = atqlbl1.Caption * 0.1
                        Totals(2) = atqlbl2.Caption * 0.05
                        total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
                        atqlbl3.Caption = total2 / 0.4
                        Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
                    End If
        
        Set wks = Sheet2
            Set addnew = wks.Range("C2").Offset(0, 0)
            addnew.Offset(0, 0).Value = atqlbl3.Caption
        
        
        adddata.Enabled = False
    
    
                    If atqlbl3.Caption <> "" Then
                        finallbl.Caption = atqlbl3.Caption * 0.4
                        Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
                    End If
                    Call calculate
                    Call colors
                    Call ChangeChart("GraphChart")
    End Sub
    Private Sub Button()
            If obYes.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
        If obYes1.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo1.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa1.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes2.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo2.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa2.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes3.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo3.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa3.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes4.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo4.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa4.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes5.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo5.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa5.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes6.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo6.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa6.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes7.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo7.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa7.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes8.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo8.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa8.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes9.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo9.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa9.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes10.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo10.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa10.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes11.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo11.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa11.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes12.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo12.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa12.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes13.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo13.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa13.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes14.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo14.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa14.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes15.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo15.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa15.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes16.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo16.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa16.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes17.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo17.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa17.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes18.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo18.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa18.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes19.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo19.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa19.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes20.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo20.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa20.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes21.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo21.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa21.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes22.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo22.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa22.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes23.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo23.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa23.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
    
    
        
    End Sub
    Private Sub awpEnter_Click()
    Dim wks As Worksheet
    Dim addnew, addnew1 As Range
    Set wks = Sheet9
    
    
        Set addnew = wks.Range("H3").Offset(0, 0)
            If obYes.Value = True Then
                addnew.Offset(0, 1).Value = obYes.Caption
            ElseIf obNo.Value = True Then
                addnew.Offset(0, 1).Value = obNo.Caption
            ElseIf obNa.Value = True Then
                addnew.Offset(0, 1).Value = obNa.Caption
            End If
            If obYes1.Value = True Then
                addnew.Offset(0, 2).Value = obYes1.Caption
            ElseIf obNo1.Value = True Then
                addnew.Offset(0, 2).Value = obNo1.Caption
            ElseIf obNa1.Value = True Then
                addnew.Offset(0, 2).Value = obNa1.Caption
            End If
            If obYes2.Value = True Then
                addnew.Offset(0, 3).Value = obYes2.Caption
            ElseIf obNo2.Value = True Then
                addnew.Offset(0, 3).Value = obNo2.Caption
            ElseIf obNa2.Value = True Then
                addnew.Offset(0, 3).Value = obNa2.Caption
            End If
            If obYes3.Value = True Then
                addnew.Offset(0, 4).Value = obYes3.Caption
            ElseIf obNo3.Value = True Then
                addnew.Offset(0, 4).Value = obNo3.Caption
            ElseIf obNa3.Value = True Then
                addnew.Offset(0, 4).Value = obNa3.Caption
            End If
            If obYes4.Value = True Then
                addnew.Offset(0, 5).Value = obYes4.Caption
            ElseIf obNo4.Value = True Then
                addnew.Offset(0, 5).Value = obNo4.Caption
            ElseIf obNa4.Value = True Then
                addnew.Offset(0, 5).Value = obNa4.Caption
            End If
            If obYes5.Value = True Then
                addnew.Offset(0, 6).Value = obYes5.Caption
            ElseIf obNo5.Value = True Then
                addnew.Offset(0, 6).Value = obNo5.Caption
            ElseIf obNa5.Value = True Then
                addnew.Offset(0, 6).Value = obNa5.Caption
            End If
            If obYes6.Value = True Then
                addnew.Offset(0, 7).Value = obYes6.Caption
            ElseIf obNo6.Value = True Then
                addnew.Offset(0, 7).Value = obNo6.Caption
            ElseIf obNa6.Value = True Then
                addnew.Offset(0, 7).Value = obNa6.Caption
            End If
            If obYes7.Value = True Then
                addnew.Offset(0, 8).Value = obYes7.Caption
            ElseIf obNo7.Value = True Then
                addnew.Offset(0, 8).Value = obNo7.Caption
            ElseIf obNa7.Value = True Then
                addnew.Offset(0, 8).Value = obNa7.Caption
            End If
            If obYes8.Value = True Then
                addnew.Offset(0, 9).Value = obYes8.Caption
            ElseIf obNo8.Value = True Then
                addnew.Offset(0, 9).Value = obNo8.Caption
            ElseIf obNa8.Value = True Then
                addnew.Offset(0, 9).Value = obNa8.Caption
            End If
            If obYes9.Value = True Then
                addnew.Offset(0, 10).Value = obYes9.Caption
            ElseIf obNo9.Value = True Then
                addnew.Offset(0, 10).Value = obNo9.Caption
            ElseIf obNa9.Value = True Then
                addnew.Offset(0, 10).Value = obNa9.Caption
            End If
            If obYes10.Value = True Then
                addnew.Offset(0, 11).Value = obYes10.Caption
            ElseIf obNo10.Value = True Then
                addnew.Offset(0, 11).Value = obNo10.Caption
            ElseIf obNa10.Value = True Then
                addnew.Offset(0, 11).Value = obNa10.Caption
            End If
            If obYes11.Value = True Then
                addnew.Offset(0, 12).Value = obYes11.Caption
            ElseIf obNo11.Value = True Then
                addnew.Offset(0, 12).Value = obNo11.Caption
            ElseIf obNa11.Value = True Then
                addnew.Offset(0, 12).Value = obNa11.Caption
            End If
            If obYes12.Value = True Then
                addnew.Offset(0, 13).Value = obYes12.Caption
            ElseIf obNo12.Value = True Then
                addnew.Offset(0, 13).Value = obNo12.Caption
            ElseIf obNa12.Value = True Then
                addnew.Offset(0, 13).Value = obNa12.Caption
            End If
            If obYes13.Value = True Then
                addnew.Offset(0, 14).Value = obYes13.Caption
            ElseIf obNo13.Value = True Then
                addnew.Offset(0, 14).Value = obNo13.Caption
            ElseIf obNa13.Value = True Then
                addnew.Offset(0, 14).Value = obNa13.Caption
            End If
            If obYes14.Value = True Then
                addnew.Offset(0, 15).Value = obYes14.Caption
            ElseIf obNo14.Value = True Then
                addnew.Offset(0, 15).Value = obNo14.Caption
            ElseIf obNa14.Value = True Then
                addnew.Offset(0, 15).Value = obNa14.Caption
            End If
            If obYes15.Value = True Then
                addnew.Offset(0, 16).Value = obYes15.Caption
            ElseIf obNo15.Value = True Then
                addnew.Offset(0, 16).Value = obNo15.Caption
            ElseIf obNa15.Value = True Then
                addnew.Offset(0, 16).Value = obNa15.Caption
            End If
            If obYes16.Value = True Then
                addnew.Offset(0, 17).Value = obYes16.Caption
            ElseIf obNo16.Value = True Then
                addnew.Offset(0, 17).Value = obNo16.Caption
            ElseIf obNa16.Value = True Then
                addnew.Offset(0, 17).Value = obNa16.Caption
            End If
            If obYes17.Value = True Then
                addnew.Offset(0, 18).Value = obYes17.Caption
            ElseIf obNo17.Value = True Then
                addnew.Offset(0, 18).Value = obNo17.Caption
            ElseIf obNa17.Value = True Then
                addnew.Offset(0, 18).Value = obNa17.Caption
            End If
            If obYes18.Value = True Then
                addnew.Offset(0, 19).Value = obYes18.Caption
            ElseIf obNo18.Value = True Then
                addnew.Offset(0, 19).Value = obNo18.Caption
            ElseIf obNa18.Value = True Then
                addnew.Offset(0, 19).Value = obNa18.Caption
            End If
            If obYes19.Value = True Then
                addnew.Offset(0, 20).Value = obYes19.Caption
            ElseIf obNo19.Value = True Then
                addnew.Offset(0, 20).Value = obNo19.Caption
            ElseIf obNa19.Value = True Then
                addnew.Offset(0, 20).Value = obNa19.Caption
            End If
            If obYes20.Value = True Then
                addnew.Offset(0, 21).Value = obYes20.Caption
            ElseIf obNo20.Value = True Then
                addnew.Offset(0, 21).Value = obNo20.Caption
            ElseIf obNa20.Value = True Then
                addnew.Offset(0, 21).Value = obNa20.Caption
            End If
            If obYes21.Value = True Then
                addnew.Offset(0, 22).Value = obYes21.Caption
            ElseIf obNo21.Value = True Then
                addnew.Offset(0, 22).Value = obNo21.Caption
            ElseIf obNa21.Value = True Then
                addnew.Offset(0, 22).Value = obNa21.Caption
            End If
            If obYes22.Value = True Then
                addnew.Offset(0, 23).Value = obYes22.Caption
            ElseIf obNo22.Value = True Then
                addnew.Offset(0, 23).Value = obNo22.Caption
            ElseIf obNa22.Value = True Then
                addnew.Offset(0, 23).Value = obNa22.Caption
            End If
            If obYes23.Value = True Then
                addnew.Offset(0, 24).Value = obYes23.Caption
            ElseIf obNo23.Value = True Then
                addnew.Offset(0, 24).Value = obNo23.Caption
            ElseIf obNa23.Value = True Then
                addnew.Offset(0, 24).Value = obNa23.Caption
            End If
    
    
                If obYes.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
        If obYes1.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo1.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa1.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes2.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo2.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa2.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes3.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo3.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa3.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes4.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo4.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa4.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes5.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo5.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa5.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes6.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo6.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa6.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes7.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo7.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa7.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes8.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo8.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa8.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes9.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo9.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa9.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes10.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo10.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa10.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes11.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo11.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa11.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes12.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo12.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa12.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes13.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo13.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa13.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes14.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo14.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa14.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes15.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo15.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa15.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes16.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo16.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa16.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes17.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo17.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa17.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes18.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo18.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa18.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes19.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo19.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa19.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes20.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo20.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa20.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes21.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo21.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa21.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes22.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo22.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa22.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
            If obYes23.Value = True Then
            oblbl.Caption = oblbl.Caption
        ElseIf obNo23.Value = True Then
            oblbl.Caption = oblbl.Caption - 1
        ElseIf obNa23.Value = True Then
            oblbl.Caption = oblbl.Caption
        End If
    
    
    
    
        Dim obave(2) As Double
        obave(0) = 23
        obave(1) = 24
    
    
            If obcombo.Text = "Regular" Then
                oblbl1 = (oblbl.Caption / obave(0)) * 100
                Me.oblbl1.Caption = Format(Me.oblbl1.Caption, "##0.00")
            ElseIf obcombo.Text = "Hybrid" Then
                oblbl1 = (oblbl.Caption / obave(1)) * 100
                Me.oblbl1.Caption = Format(Me.oblbl1.Caption, "##0.00")
            End If
                atqlbl1.Caption = oblbl1.Caption
                addnew.Offset(0, 0).Value = oblbl1.Caption
    
    
        Dim total2, Totals(3) As Double
    
    
            If atqlbl3.Caption = "" Then
                atqlbl3.Caption = (atqlbl1.Caption * 0.1) / 0.4
                Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
            End If
            If atqlbl.Caption <> "" And atqlbl1.Caption <> "" Then
                total2 = 0
                    Totals(0) = atqlbl.Caption * 0.25
                    Totals(1) = atqlbl1.Caption * 0.1
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1))
                    atqlbl3.Caption = total2 / 0.4
                    Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
            End If
            If atqlbl1.Caption <> "" And atqlbl2.Caption <> "" Then
                total2 = 0
                    Totals(0) = atqlbl1.Caption * 0.1
                    Totals(2) = atqlbl2.Caption * 0.05
         
                    total2 = CDbl(Totals(0)) + CDbl(Totals(2))
                    atqlbl3.Caption = total2 / 0.4
                    Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
            End If
            If atqlbl.Caption <> "" And atqlbl1.Caption <> "" And atqlbl2.Caption <> "" Then
                total2 = 0
                    Totals(0) = atqlbl.Caption * 0.25
                    Totals(1) = atqlbl1.Caption * 0.1
                    Totals(2) = atqlbl2.Caption * 0.05
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
                    atqlbl3.Caption = total2 / 0.4
                    Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
            End If
    
    
     Set wks = Sheet2
        Set addnew = wks.Range("C2").Offset(0, 0)
        addnew.Offset(0, 0).Value = atqlbl3.Caption
    
    
    
    
        awpEnter.Enabled = False
        obcombo.Enabled = False
    
    
            If atqlbl3.Caption <> "" Then
                finallbl.Caption = atqlbl3.Caption * 0.4
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
        Call calculate
        Call colors
        Call ChangeChart("GraphChart")
    End Sub
    
    
    Private Sub awpExit_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Draft Audit Quality")
    
    
        If iExit = vbYes Then
            Unload Me
        End If
    
    
    End Sub
    
    
    Private Sub awpReset_Click()
        Dim cont As Control
    
    
        For Each cont In Me.Controls
        If cont.Name Like "ob*" Then cont = vbNullString
            Next
                atqlbl1.Caption = ""
                atqlbl3.Caption = ""
                awpEnter.Enabled = False
                obcombo.Enabled = True
                obYes.Enabled = False
                obYes1.Enabled = False
                obYes2.Enabled = False
                obYes3.Enabled = False
                obYes4.Enabled = False
                obYes5.Enabled = False
                obYes6.Enabled = False
                obYes7.Enabled = False
                obYes8.Enabled = False
                obYes9.Enabled = False
                obYes10.Enabled = False
                obYes11.Enabled = False
                obYes12.Enabled = False
                obYes13.Enabled = False
                obYes14.Enabled = False
                obYes15.Enabled = False
                obYes16.Enabled = False
                obYes17.Enabled = False
                obYes18.Enabled = False
                obYes19.Enabled = False
                obYes20.Enabled = False
                obYes21.Enabled = False
                obYes22.Enabled = False
                obYes23.Enabled = False
                obNo.Enabled = False
                obNo1.Enabled = False
                obNo2.Enabled = False
                obNo3.Enabled = False
                obNo4.Enabled = False
                obNo5.Enabled = False
                obNo6.Enabled = False
                obNo7.Enabled = False
                obNo8.Enabled = False
                obNo9.Enabled = False
                obNo10.Enabled = False
                obNo11.Enabled = False
                obNo12.Enabled = False
                obNo13.Enabled = False
                obNo14.Enabled = False
                obNo15.Enabled = False
                obNo16.Enabled = False
                obNo17.Enabled = False
                obNo18.Enabled = False
                obNo19.Enabled = False
                obNo20.Enabled = False
                obNo21.Enabled = False
                obNo22.Enabled = False
                obNo23.Enabled = False
                obNa.Enabled = False
                obNa1.Enabled = False
                obNa2.Enabled = False
                obNa3.Enabled = False
                obNa4.Enabled = False
                obNa5.Enabled = False
                obNa6.Enabled = False
                obNa7.Enabled = False
                obNa8.Enabled = False
                obNa9.Enabled = False
                obNa10.Enabled = False
                obNa11.Enabled = False
                obNa12.Enabled = False
                obNa13.Enabled = False
                obNa14.Enabled = False
                obNa15.Enabled = False
                obNa16.Enabled = False
                obNa17.Enabled = False
                obNa18.Enabled = False
                obNa19.Enabled = False
                obNa20.Enabled = False
                obNa21.Enabled = False
                obNa22.Enabled = False
                obNa23.Enabled = False
    
    
    End Sub
    Private Sub calculate()
        Dim wks As Worksheet
        Dim addnew As Range
        Dim addup(3) As Double
        Set wks = Sheet9
        Set addnew = wks.Range("A3").End(xlUp).Offset(1, 0)
    
    
        Dim totals2, Totalss(3) As Double
    
    
            If atqlbl3.Caption <> "" And enlbl3.Caption <> "" Then
                totals2 = 0
                Totalss(0) = atqlbl3.Caption * 0.4
                Totalss(1) = enlbl3.Caption * 0.25
                totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            If atqlbl3.Caption <> "" And englbl1.Caption <> "" Then
                totals2 = 0
                Totalss(0) = atqlbl3.Caption * 0.4
                Totalss(1) = englbl1.Caption * 0.1
                totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            If atqlbl3.Caption <> "" And atblbl2.Caption <> "" Then
                totals2 = 0
                Totalss(0) = atqlbl3.Caption * 0.4
                Totalss(1) = atblbl2.Caption * 0.25
                totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            If enlbl3.Caption <> "" And englbl1.Caption <> "" Then
                totals2 = 0
                Totalss(0) = enlbl3.Caption * 0.25
                Totalss(1) = englbl1.Caption * 0.1
                totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            If enlbl3.Caption <> "" And atblbl2.Caption <> "" Then
                totals2 = 0
                Totalss(0) = enlbl3.Caption * 0.25
                Totalss(1) = atblbl2.Caption * 0.25
                totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            If atblbl2.Caption <> "" And englbl1.Caption <> "" Then
                totals2 = 0
                Totalss(0) = atblbl2.Caption * 0.25
                Totalss(1) = englbl1.Caption * 0.1
                totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            If atqlbl3.Caption <> "" And enlbl3.Caption <> "" And englbl1.Caption <> "" Then
                totals2 = 0
                Totalss(0) = atqlbl3.Caption * 0.4
                Totalss(1) = enlbl3.Caption * 0.25
                Totalss(2) = englbl1.Caption * 0.1
                totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1)) + CDbl(Totalss(2))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            If atqlbl3.Caption <> "" And enlbl3.Caption <> "" And atblbl2.Caption <> "" Then
                totals2 = 0
                Totalss(0) = atqlbl3.Caption * 0.4
                Totalss(1) = enlbl3.Caption * 0.25
                Totalss(3) = atblbl2.Caption * 0.25
                totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1)) + CDbl(Totalss(3))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            If atqlbl3.Caption <> "" And englbl1.Caption <> "" And atblbl2.Caption <> "" Then
                totals2 = 0
                Totalss(0) = atqlbl3.Caption * 0.4
                Totalss(2) = englbl1.Caption * 0.1
                Totalss(3) = atblbl2.Caption * 0.25
                totals2 = CDbl(Totalss(0)) + CDbl(Totalss(2)) + CDbl(Totalss(3))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            If enlbl3.Caption <> "" And englbl1.Caption <> "" And atblbl2.Caption <> "" Then
                totals2 = 0
                Totalss(1) = enlbl3.Caption * 0.25
                Totalss(2) = englbl1.Caption * 0.1
                Totalss(3) = atblbl2.Caption * 0.25
                totals2 = CDbl(Totalss(1)) + CDbl(Totalss(2)) + CDbl(Totalss(3))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            If atqlbl3.Caption <> "" And enlbl3.Caption <> "" And englbl1.Caption <> "" And atblbl2.Caption <> "" Then
                totals2 = 0
                Totalss(0) = atqlbl3.Caption * 0.4
                Totalss(1) = enlbl3.Caption * 0.25
                Totalss(2) = englbl1.Caption * 0.1
                Totalss(3) = atblbl2.Caption * 0.25
                totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1)) + CDbl(Totalss(2)) + CDbl(Totalss(3))
                finallbl.Caption = totals2
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
    
    
        addnew.Offset(0, 0).Value = finallbl.Caption
        
        Set wks = Sheet2
        Set addnew = wks.Range("A2").End(xlUp).Offset(1, 0)
        
       addnew.Offset(0, 0).Value = finallbl.Caption
    
    
    End Sub
    
    
    Private Sub btn01_Click()
    
    
        Me.MultiPage7.Value = 0
        Me.btn01.BackColor = RGB(255, 215, 0)
        
        Call ChangeChart("GraphChart")
        
    End Sub
    Private Sub btn1_Click()
        Me.MultiPage7.Value = 1
        Me.btn1.BackColor = RGB(224, 224, 224)
        Me.btn2.BackColor = RGB(160, 160, 160)
        Me.btn3.BackColor = RGB(160, 160, 160)
        Me.btn4.BackColor = RGB(160, 160, 160)
        Call colors
    End Sub
    Private Sub btn11_Click()
        Me.MultiPage5.Value = 0
        Me.btn11.BackColor = RGB(224, 224, 224)
        Me.btn12.BackColor = RGB(160, 160, 160)
    
    
    End Sub
    Private Sub btn12_Click()
        Me.MultiPage5.Value = 1
        Me.btn11.BackColor = RGB(160, 160, 160)
        Me.btn12.BackColor = RGB(224, 224, 224)
    
    
    End Sub
    Private Sub btn13_Click()
        Me.MultiPage6.Value = 0
        Me.btn13.BackColor = RGB(224, 224, 224)
        Me.btn14.BackColor = RGB(160, 160, 160)
        Me.btn15.BackColor = RGB(160, 160, 160)
        Me.btn16.BackColor = RGB(160, 160, 160)
    
    
    End Sub
    Private Sub btn14_Click()
        Me.MultiPage6.Value = 1
        Me.btn13.BackColor = RGB(160, 160, 160)
        Me.btn14.BackColor = RGB(224, 224, 224)
        Me.btn15.BackColor = RGB(160, 160, 160)
        Me.btn16.BackColor = RGB(160, 160, 160)
    
    
    End Sub
    Private Sub btn15_Click()
        Me.MultiPage6.Value = 2
        Me.btn13.BackColor = RGB(160, 160, 160)
        Me.btn14.BackColor = RGB(160, 160, 160)
        Me.btn15.BackColor = RGB(224, 224, 224)
        Me.btn16.BackColor = RGB(160, 160, 160)
    
    
    End Sub
    Private Sub btn16_Click()
        Me.MultiPage6.Value = 3
        Me.btn13.BackColor = RGB(160, 160, 160)
        Me.btn14.BackColor = RGB(160, 160, 160)
        Me.btn15.BackColor = RGB(160, 160, 160)
        Me.btn16.BackColor = RGB(224, 224, 224)
    
    
    End Sub
    
    
    Private Sub btn2_Click()
        Me.MultiPage7.Value = 2
        Me.btn1.BackColor = RGB(160, 160, 160)
        Me.btn2.BackColor = RGB(224, 224, 224)
        Me.btn3.BackColor = RGB(160, 160, 160)
        Me.btn4.BackColor = RGB(160, 160, 160)
        Call colors
    End Sub
    
    
    Private Sub btn3_Click()
        Me.MultiPage7.Value = 3
        Me.btn1.BackColor = RGB(160, 160, 160)
        Me.btn2.BackColor = RGB(160, 160, 160)
        Me.btn3.BackColor = RGB(224, 224, 224)
        Me.btn4.BackColor = RGB(160, 160, 160)
        Call colors
    End Sub
    Private Sub btn4_Click()
        Me.MultiPage7.Value = 4
        Me.btn1.BackColor = RGB(160, 160, 160)
        Me.btn2.BackColor = RGB(160, 160, 160)
        Me.btn3.BackColor = RGB(160, 160, 160)
        Me.btn4.BackColor = RGB(224, 224, 224)
        Call colors
    End Sub
    
    
    Private Sub btn5_Click()
        Me.MultiPage3.Value = 0
        Me.btn5.BackColor = RGB(224, 224, 224)
        Me.btn6.BackColor = RGB(160, 160, 160)
        Me.btn7.BackColor = RGB(160, 160, 160)
        
    End Sub
    Private Sub btn6_Click()
        Me.MultiPage3.Value = 1
        Me.btn5.BackColor = RGB(160, 160, 160)
        Me.btn6.BackColor = RGB(224, 224, 224)
        Me.btn7.BackColor = RGB(160, 160, 160)
        
    End Sub
    Private Sub btn7_Click()
        Me.MultiPage3.Value = 2
        Me.btn5.BackColor = RGB(160, 160, 160)
        Me.btn6.BackColor = RGB(160, 160, 160)
        Me.btn7.BackColor = RGB(224, 224, 224)
        
    End Sub
    Private Sub btn8_Click()
        Me.MultiPage2.Value = 0
        Me.btn8.BackColor = RGB(224, 224, 224)
        Me.btn9.BackColor = RGB(160, 160, 160)
        Me.btn10.BackColor = RGB(160, 160, 160)
    
    
    End Sub
    Private Sub btn9_Click()
        Me.MultiPage2.Value = 1
        Me.btn8.BackColor = RGB(160, 160, 160)
        Me.btn9.BackColor = RGB(224, 224, 224)
        Me.btn10.BackColor = RGB(160, 160, 160)
    
    
    End Sub
    Private Sub btn10_Click()
        Me.MultiPage2.Value = 2
        Me.btn8.BackColor = RGB(160, 160, 160)
        Me.btn9.BackColor = RGB(160, 160, 160)
        Me.btn10.BackColor = RGB(224, 224, 224)
    
    
    End Sub
    
    
    Private Sub btndaqenter_Click()
        Dim draft As Double
        Dim wks As Worksheet
        Dim wks1 As Worksheet
        Dim addnew As Range
        Dim addup(3) As Double
        Set wks = Sheet9
        Set addnew = wks.Range("E3").Offset(0, 0)
        
        addnew.Offset(0, 1).Value = daqtxt.Text
            If daqobyes.Value = True Then
                addnew.Offset(0, 2).Value = daqobyes.Caption
                ElseIf daqobno.Value = True Then
                addnew.Offset(0, 2).Value = daqobno.Caption
                ElseIf daqobna.Value = True Then
                addnew.Offset(0, 2).Value = daqobna.Caption
            End If
            
        draft = (100 - (daqtxt.Text * 3))
            If daqtxt.Text = "" Or daqtxt.Text = "-" Then
                daqlbl.Caption = ""
                ElseIf draft = (100 - (daqtxt.Text * 3)) Then
                daqlbl.Caption = draft
                Me.daqlbl.Caption = Format(Me.daqlbl.Caption, "##0.00") & "%"
            End If
    
    
            If daqobyes.Value = True Then
                daqlbl1.Caption = "100.00%"
                ElseIf daqobno.Value = True Then
                daqlbl1.Caption = "0.00%"
                ElseIf daqobna.Value = True Then
                daqlbl1.Caption = "0.00%"
            End If
    
    
        addup(0) = Val(daqlbl.Caption)
        addup(2) = addup(0) * 0.95
            If daqobyes.Value = True Then
                addup(1) = 100 * 0.05
                ElseIf daqobno.Value = True Then
                addup(1) = 0 * 0.05
                ElseIf daqobna.Value = True Then
                addup(1) = 0 * 0.05
            End If
        
        daqlbl2.Caption = addup(2) + addup(1)
        Me.daqlbl2.Caption = Format(Me.daqlbl2.Caption, "##0.00")
        addnew.Offset(0, 0).Value = daqlbl2.Caption
        atqlbl.Caption = daqlbl2.Caption
    
    
    
    
        Dim total2, Totals(3) As Double
    
    
            If atqlbl3.Caption = "" Then
                atqlbl3.Caption = (atqlbl.Caption * 0.25) / 0.4
                Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
            End If
            If atqlbl.Caption <> "" And atqlbl1.Caption <> "" Then
                total2 = 0
                Totals(0) = atqlbl.Caption * 0.25
                Totals(1) = atqlbl1.Caption * 0.1
                total2 = CDbl(Totals(0)) + CDbl(Totals(1))
                atqlbl3.Caption = total2 / 0.4
                Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
            End If
            If atqlbl.Caption <> "" And atqlbl2.Caption <> "" Then
                total2 = 0
                Totals(0) = atqlbl.Caption * 0.25
                Totals(2) = atqlbl2.Caption * 0.05
                total2 = CDbl(Totals(0)) + CDbl(Totals(2))
                atqlbl3.Caption = total2 / 0.4
                Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
            End If
            If atqlbl.Caption <> "" And atqlbl1.Caption <> "" And atqlbl2.Caption <> "" Then
                total2 = 0
                Totals(0) = atqlbl.Caption * 0.25
                Totals(1) = atqlbl1.Caption * 0.1
                Totals(2) = atqlbl2.Caption * 0.05
                total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
                atqlbl3.Caption = total2 / 0.4
                Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
            End If
     Set wks = Sheet2
        Set addnew = wks.Range("C2").Offset(0, 0)
        addnew.Offset(0, 0).Value = atqlbl3.Caption
       
        
        btndaqenter.Enabled = False
     
            If atqlbl3.Caption <> "" Then
                finallbl.Caption = atqlbl3.Caption * 0.4
                Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
            End If
            
                Call calculate
                Call colors
                Call ChangeChart("GraphChart")
     
    End Sub
    
    
    Private Sub btndaqexit_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Draft Audit Quality")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    End Sub
    
    
    Private Sub btndaqreset_Click()
        Dim cont As Control
    
    
            For Each cont In Me.Controls
            If cont.Name Like "daq*" Then cont = vbNullString
                Next
                atqlbl.Caption = ""
                atqlbl3.Caption = ""
                btndaqenter.Enabled = True
                daqtxt.SetFocus
            End Sub
    Private Sub btnEnter_Click()
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        Set addnew = wks.Range("AT3").Offset(0, 0)
       
            addnew.Offset(0, 1).Value = txt1.Text
            addnew.Offset(0, 2).Value = txt2.Text
    
    
        Dim dblNetworkDays As Long
        Dim dblNetworkDays1 As Long
    
    
            dblNetworkDays = -(WorksheetFunction.NetworkDays(txt1, txt2))
            dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt1, txt2) - 1) * 5)
    
    
                If txt1.Value = "" Or txt2.Value = "" Then
                    lbl1.Caption = ""
                    ElseIf txt1.Value = txt2.Value Or txt1.Value > txt2.Value Then
                    lbl1.Caption = "-"
                    ElseIf dblNetworkDays = -(WorksheetFunction.NetworkDays(txt1, txt2)) Then
                    lbl1.Caption = dblNetworkDays
                    Me.lbl1.Caption = Format(lbl1.Caption, "[Blue]###,##(0);[Red](###,##0)")
                End If
        
                If txt1.Value = "" Or txt2.Value = "" Then
                    lblTotal.Caption = ""
                    ElseIf txt1.Value = txt2.Value Or txt1.Value > txt2.Value Then
                    lblTotal.Caption = "100.00"
                    ElseIf dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt1, txt2) - 1) * 5) Then
                    lblTotal.Caption = dblNetworkDays1
        
                If lblTotal.Caption <= 0 Then
                    lblTotal.Caption = "0.00"
                End If
                    Me.lblTotal.Caption = Format(Me.lblTotal.Caption, "##0.00")
                End If
                    enlbl.Caption = lblTotal.Caption
    
    
        addnew.Offset(0, 0).Value = lblTotal.Caption
        addnew.Offset(0, 3).Value = lbl1.Caption
     
        Dim total2, Totals(3) As Double
    
    
                If enlbl3.Caption = "" Then
                    enlbl3.Caption = (enlbl.Caption * 0.15) / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
                If enlbl.Caption <> "" And enlbl1.Caption <> "" Then
                    total2 = 0
                    Totals(0) = enlbl.Caption * 0.15
                    Totals(1) = enlbl1.Caption * 0.05
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1))
                    enlbl3.Caption = total2 / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
                If enlbl.Caption <> "" And enlbl2.Caption <> "" Then
                    total2 = 0
                    Totals(0) = enlbl.Caption * 0.15
                    Totals(2) = enlbl2.Caption * 0.05
         
                    total2 = CDbl(Totals(0)) + CDbl(Totals(2))
                    enlbl3.Caption = total2 / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
                If enlbl.Caption <> "" And enlbl1.Caption <> "" And enlbl2.Caption <> "" Then
                    total2 = 0
                    Totals(0) = enlbl.Caption * 0.15
                    Totals(1) = enlbl1.Caption * 0.05
                    Totals(2) = enlbl2.Caption * 0.05
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
                    enlbl3.Caption = total2 / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
     
     Set wks = Sheet2
        Set addnew = wks.Range("D2").Offset(0, 0)
        addnew.Offset(0, 0).Value = enlbl3.Caption
     
     
                If enlbl3.Caption <> "" Then
                    finallbl.Caption = enlbl3.Caption * 0.25
                    Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
                End If
        Call calculate
        Call colors
        Call ChangeChart("GraphChart")
        
    End Sub
    
    
    Private Sub btnEnter1_Click()
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        Set addnew = wks.Range("AX3").Offset(0, 0)
       
        addnew.Offset(0, 1).Value = txt3.Text
        addnew.Offset(0, 2).Value = txt4.Text
    
    
        Dim dblNetworkDays As Double
        Dim dblNetworkDays1 As Double
            dblNetworkDays = WorksheetFunction.NetworkDays(txt4, txt3) + 1
            dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt3, txt4) - 2) * 3)
                If txt3.Value = "" Or txt4.Value = "" Then
                    lbl2.Caption = ""
                    ElseIf txt3.Value = txt4.Value Or txt3.Value > txt4.Value Then
                    lbl2.Caption = "-"
                    ElseIf dblNetworkDays = WorksheetFunction.NetworkDays(txt4, txt3) + 1 Then
                    lbl2.Caption = dblNetworkDays
                    Me.lbl2.Caption = Format(lbl2.Caption, "[Blue]###,##(0);[Red](###,##0)")
                End If
    
    
                If txt3.Value = "" Or txt4.Value = "" Then
                    lblTotal1.Caption = ""
                    ElseIf txt3.Value = txt4.Value Or txt3.Value > txt4.Value Then
                    lblTotal1.Caption = "100.00"
                    ElseIf dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt3, txt4) - 2) * 3) Then
                    lblTotal1.Caption = dblNetworkDays1
        
                If lblTotal1.Caption <= 0 Then
                    lblTotal1.Caption = "0.00"
                End If
        
                    Me.lblTotal1.Caption = Format(Me.lblTotal1.Caption, "##0.00")
                End If
                    enlbl1.Caption = lblTotal1.Caption
        
        addnew.Offset(0, 0).Value = lblTotal1.Caption
        addnew.Offset(0, 3).Value = lbl2.Caption
     
        Dim total2, Totals(3) As Double
    
    
                If enlbl3.Caption = "" Then
                    enlbl3.Caption = (enlbl1.Caption * 0.05) / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
                If enlbl.Caption <> "" And enlbl1.Caption <> "" Then
                    total2 = 0
                    Totals(0) = enlbl.Caption * 0.15
                    Totals(1) = enlbl1.Caption * 0.05
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1))
                    enlbl3.Caption = total2 / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
                If enlbl1.Caption <> "" And enlbl2.Caption <> "" Then
                    total2 = 0
                    Totals(0) = enlbl1.Caption * 0.05
                    Totals(2) = enlbl2.Caption * 0.05
         
                    total2 = CDbl(Totals(0)) + CDbl(Totals(2))
                    enlbl3.Caption = total2 / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
                If enlbl.Caption <> "" And enlbl1.Caption <> "" And enlbl2.Caption <> "" Then
                    total2 = 0
                    Totals(0) = enlbl.Caption * 0.15
                    Totals(1) = enlbl1.Caption * 0.05
                    Totals(2) = enlbl2.Caption * 0.05
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
                    enlbl3.Caption = total2 / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
     
     Set wks = Sheet2
        Set addnew = wks.Range("D2").Offset(0, 0)
        addnew.Offset(0, 0).Value = enlbl3.Caption
     
     
                If enlbl3.Caption <> "" Then
                    finallbl.Caption = enlbl3.Caption * 0.25
                    Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
                End If
        Call calculate
        Call colors
        Call ChangeChart("GraphChart")
    End Sub
    
    
    Private Sub btnEnter2_Click()
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        Set addnew = wks.Range("BB3").Offset(0, 0)
       
        addnew.Offset(0, 1).Value = txt5.Text
        addnew.Offset(0, 2).Value = txt6.Text
    
    
        Dim dblNetworkDays As Double
        Dim dblNetworkDays1 As Double
            dblNetworkDays = WorksheetFunction.NetworkDays(txt6, txt5) + 1
            dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt5, txt6) - 1) * 5)
                If txt5.Value = "" Or txt6.Value = "" Then
                    lbl3.Caption = ""
                    ElseIf txt5.Value = txt6.Value Or txt5.Value > txt6.Value Then
                    lbl3.Caption = "-"
                    ElseIf dblNetworkDays = WorksheetFunction.NetworkDays(txt6, txt5) + 1 Then
                    lbl3.Caption = dblNetworkDays
                    Me.lbl3.Caption = Format(lbl3.Caption, "[Blue]###,##(0);[Red](###,##0)")
                End If
    
    
                If txt5.Value = "" Or txt6.Value = "" Then
                    lblTotal2.Caption = ""
                    ElseIf txt5.Value = txt6.Value Or txt5.Value > txt6.Value Then
                    lblTotal2.Caption = "100.00"
                    ElseIf dblNetworkDays1 = (100 - (WorksheetFunction.NetworkDays(txt5, txt6) - 1) * 5) Then
                    lblTotal2.Caption = dblNetworkDays1
        
                If lblTotal2.Caption <= 0 Then
                    lblTotal2.Caption = "0.00"
                End If
        
                    Me.lblTotal2.Caption = Format(Me.lblTotal2.Caption, "##0.00")
                End If
                    enlbl2.Caption = lblTotal2.Caption
        
        addnew.Offset(0, 0).Value = lblTotal2.Caption
        addnew.Offset(0, 3).Value = lbl3.Caption
        
        Dim total2, Totals(3) As Double
    
    
                If enlbl3.Caption = "" Then
                    enlbl3.Caption = (enlbl2.Caption * 0.05) / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
                If enlbl.Caption <> "" And enlbl2.Caption <> "" Then
                    total2 = 0
                    Totals(0) = enlbl.Caption * 0.15
                    Totals(1) = enlbl2.Caption * 0.05
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1))
                    enlbl3.Caption = total2 / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
                If enlbl1.Caption <> "" And enlbl2.Caption <> "" Then
                    total2 = 0
                    Totals(0) = enlbl1.Caption * 0.05
                    Totals(2) = enlbl2.Caption * 0.05
         
                    total2 = CDbl(Totals(0)) + CDbl(Totals(2))
                    enlbl3.Caption = total2 / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
                If enlbl.Caption <> "" And enlbl1.Caption <> "" And enlbl2.Caption <> "" Then
                    total2 = 0
                    Totals(0) = enlbl.Caption * 0.15
                    Totals(1) = enlbl1.Caption * 0.05
                    Totals(2) = enlbl2.Caption * 0.05
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
                    enlbl3.Caption = total2 / 0.25
                    Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
                End If
        
     Set wks = Sheet2
        Set addnew = wks.Range("D2").Offset(0, 0)
        addnew.Offset(0, 0).Value = enlbl3.Caption
        
        
                If enlbl3.Caption <> "" Then
                    finallbl.Caption = enlbl3.Caption * 0.25
                    Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
                End If
        Call calculate
        Call colors
        Call ChangeChart("GraphChart")
    End Sub
    
    
    Private Sub btnexit_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Engagement Efficiency")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    
    
    End Sub
    
    
    Private Sub btnexit1_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Engagement Efficiency")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    
    
    End Sub
    
    
    Private Sub btnexit2_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Engagement Efficiency")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    
    
    End Sub
    Private Sub CommandButton1_Click()
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
       
        Dim eel(2) As Double
            eel(0) = eetxt.Text - eetxt1.Text
                If eel(0) = eetxt.Text - eetxt1.Text Then
                    eelbl2.Caption = eel(0)
                    Me.eelbl2.Caption = Format(Me.eelbl2.Caption, "#,##0.00;(#,##0.00)")
                End If
            eel(1) = eetxt2.Text - eetxt3.Text
                If eel(1) = eetxt2.Text - eetxt3.Text Then
                    eelbl3.Caption = eel(1)
                    Me.eelbl3.Caption = Format(Me.eelbl3.Caption, "#,##0.00;(#,##0.00)")
                End If
            eel(2) = eetxt4.Text - eetxt5.Text
                If eel(2) = eetxt4.Text - eetxt5.Text Then
                    eelbl4.Caption = eel(2)
                    Me.eelbl4.Caption = Format(Me.eelbl4.Caption, "#,##0.00;(#,##0.00)")
                End If
        
        Dim Total As Double
            Total = 0
                If Len(eetxt.Value) > 0 Then Total = Total + CDbl(eetxt.Value)
                If Len(eetxt2.Value) > 0 Then Total = Total + CDbl(eetxt2.Value)
                If Len(eetxt4.Value) > 0 Then Total = Total + CDbl(eetxt4.Value)
                    eelbl.Caption = Total
                    Me.eelbl.Caption = Format(Me.eelbl.Caption, "#,##0.00;(#,##0.00)")
        Dim Total1 As Double
            Total1 = 0
                If Len(eetxt1.Value) > 0 Then Total1 = Total1 + CDbl(eetxt1.Value)
                If Len(eetxt3.Value) > 0 Then Total1 = Total1 + CDbl(eetxt3.Value)
                If Len(eetxt5.Value) > 0 Then Total1 = Total1 + CDbl(eetxt5.Value)
                    eelbl1.Caption = Total1
                    Me.eelbl1.Caption = Format(Me.eelbl1.Caption, "#,##0.00;(#,##0.00)")
    
    
        Dim semiave As Double
            semiave = eelbl.Caption - eelbl1.Caption
                If semiave = eelbl.Caption - eelbl1.Caption Then
                    eelbl5 = semiave
                    Me.eelbl5.Caption = Format(Me.eelbl5.Caption, "#,##0.00;(#,##0.00)")
                End If
    
    
        Dim j3, j4, j1, j2 As Double
            j1 = ((-eelbl5.Caption / eelbl.Caption) * 100)
            j2 = eelbl1.Caption
            j3 = eelbl.Caption
                If j2 <= j3 Then
                    eelbl6.Caption = "0.00"
                End If
                If eelbl.Caption = eelbl1.Caption Then
                    eelbl6.Caption = "0.00"
                End If
                If j2 > j3 Then
                    eelbl6.Caption = j1
                    Me.eelbl6.Caption = Format(Me.eelbl6.Caption, "##0.00")
                End If
        
                If eelbl6.Caption = "0.00" Then
                    eelbl7.Caption = "100.00"
                End If
                If eelbl6.Caption > "0.00" And eelbl6.Caption <= 5# Then
                    eelbl7.Caption = "95.00"
                End If
                If eelbl6.Caption > 5# And eelbl6.Caption <= 10# Then
                    eelbl7.Caption = "90.00"
                End If
                If eelbl6.Caption > 10# And eelbl6.Caption <= 15# Then
                    eelbl7.Caption = "85.00"
                End If
                If eelbl6.Caption > 15# And eelbl6.Caption <= 20# Then
                    eelbl7.Caption = "80.00"
                End If
                If eelbl6.Caption > 20# And eelbl6.Caption <= 25# Then
                    eelbl7.Caption = "75.00"
                End If
                If eelbl6.Caption > 25# And eelbl6.Caption <= 30# Then
                    eelbl7.Caption = "70.00"
                End If
                If eelbl6.Caption > 30# And eelbl6.Caption <= 35# Then
                    eelbl7.Caption = "65.00"
                End If
                If eelbl6.Caption > 35# And eelbl6.Caption <= 40# Then
                    eelbl7.Caption = "60.00"
                End If
                If eelbl6.Caption > 40# And eelbl6.Caption <= 45# Then
                    eelbl7.Caption = "55.00"
                End If
                If eelbl6.Caption > 45# And eelbl6.Caption <= 50# Then
                    eelbl7.Caption = "50.00"
                End If
                If eelbl6.Caption > 50# And eelbl6.Caption <= 55# Then
                    eelbl7.Caption = "45.00"
                End If
                If eelbl6.Caption > 55# And eelbl6.Caption <= 60# Then
                    eelbl7.Caption = "40.00"
                End If
                If eelbl6.Caption > 60# And eelbl6.Caption <= 65# Then
                    eelbl7.Caption = "35.00"
                End If
                If eelbl6.Caption > 65# And eelbl6.Caption <= 70# Then
                    eelbl7.Caption = "30.00"
                End If
                If eelbl6.Caption > 70# And eelbl6.Caption <= 75# Then
                    eelbl7.Caption = "25.00"
                End If
                If eelbl6.Caption > 75# Then
                    eelbl7.Caption = "0.00"
                End If
                    englbl.Caption = eelbl7.Caption
                    englbl1.Caption = englbl.Caption
      
      
                If englbl1.Caption = "" Then
                    englbl1.Caption = (englbl1.Caption * 0.1) / 0.1
                    Me.englbl1.Caption = Format(Me.englbl1.Caption, "##0.00")
                End If
     
                If englbl1.Caption <> "" Then
                    finallbl.Caption = englbl1.Caption * 0.1
                    Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
                End If
    
    
        Call economics
        
        Call calculate
        Call colors
     Set wks = Sheet2
        Set addnew = wks.Range("E2").Offset(0, 0)
        addnew.Offset(0, 0).Value = englbl1.Caption
        
        Call ChangeChart("GraphChart")
    End Sub
    Private Sub economics()
     Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        
        Set addnew = wks.Range("BG3").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = Label65.Caption
            addnew.Offset(1, 0).Value = Label69.Caption
            addnew.Offset(2, 0).Value = Label71.Caption
            addnew.Offset(3, 0).Value = Label70.Caption
            addnew.Offset(4, 0).Value = Label77.Caption
        
        Set addnew = wks.Range("BH3").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = leadlbl.Caption
            addnew.Offset(1, 0).Value = balbl.Caption
            addnew.Offset(2, 0).Value = balbl1.Caption
        Set addnew = wks.Range("BI3").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = eetxt.Text
            addnew.Offset(1, 0).Value = eetxt2.Text
            addnew.Offset(2, 0).Value = eetxt4.Text
            addnew.Offset(3, 0).Value = eelbl.Caption
        Set addnew = wks.Range("BJ3").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = eetxt1.Text
            addnew.Offset(1, 0).Value = eetxt3.Text
            addnew.Offset(2, 0).Value = eetxt5.Text
            addnew.Offset(3, 0).Value = eelbl1.Caption
        Set addnew = wks.Range("BK3").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = eelbl2.Caption
            addnew.Offset(1, 0).Value = eelbl3.Caption
            addnew.Offset(2, 0).Value = eelbl4.Caption
            addnew.Offset(3, 0).Value = eelbl5.Caption
            addnew.Offset(4, 0).Value = eelbl6.Caption
        
        Set addnew = wks.Range("BF3").Offset(0, 0)
            addnew.Offset(0, 0).Value = eelbl7.Caption
    
    
    
    
    End Sub
    Private Sub CommandButton10_Click()
        Dim wks As Worksheet
        Dim addnew As Range
        Dim addup(20) As Double
        Set wks = Sheet9
        Set addnew = wks.Range("CI3").Offset(0, 0)
                If aryes.Value = True Then
                    addnew.Offset(0, 0).Value = aryes.Caption
                    ElseIf arno.Value = True Then
                    addnew.Offset(0, 0).Value = arno.Caption
                End If
                If aryes1.Value = True Then
                    addnew.Offset(0, 1).Value = aryes1.Caption
                    ElseIf arno1.Value = True Then
                    addnew.Offset(0, 1).Value = arno1.Caption
                End If
                If aryes2.Value = True Then
                    addnew.Offset(0, 2).Value = aryes2.Caption
                    ElseIf arno2.Value = True Then
                    addnew.Offset(0, 2).Value = arno2.Caption
                End If
                If aryes3.Value = True Then
                    addnew.Offset(0, 3).Value = aryes3.Caption
                    ElseIf arno3.Value = True Then
                    addnew.Offset(0, 3).Value = arno3.Caption
                End If
                If aryes4.Value = True Then
                    addnew.Offset(0, 4).Value = aryes4.Caption
                    ElseIf arno4.Value = True Then
                    addnew.Offset(0, 4).Value = arno4.Caption
                End If
                If aryes5.Value = True Then
                    addnew.Offset(0, 5).Value = aryes5.Caption
                    ElseIf arno5.Value = True Then
                    addnew.Offset(0, 5).Value = arno5.Caption
                End If
                If aryes6.Value = True Then
                    addnew.Offset(0, 6).Value = aryes6.Caption
                    ElseIf arno6.Value = True Then
                    addnew.Offset(0, 6).Value = arno6.Caption
                End If
                If aryes7.Value = True Then
                    addnew.Offset(0, 7).Value = aryes7.Caption
                    ElseIf arno7.Value = True Then
                    addnew.Offset(0, 7).Value = arno7.Caption
                End If
                If aryes8.Value = True Then
                    addnew.Offset(0, 8).Value = aryes8.Caption
                    ElseIf arno8.Value = True Then
                    addnew.Offset(0, 8).Value = arno8.Caption
                End If
                If aryes9.Value = True Then
                    addnew.Offset(0, 9).Value = aryes9.Caption
                    ElseIf arno9.Value = True Then
                    addnew.Offset(0, 9).Value = arno9.Caption
                End If
    
    
                If aryes.Value = True Then
                    addup(0) = 100
                    ElseIf arno.Value = True Then
                    addup(0) = 0
                End If
                If aryes1.Value = True Then
                    addup(1) = 100
                    ElseIf arno1.Value = True Then
                    addup(1) = 0
                End If
                If aryes2.Value = True Then
                    addup(2) = 100
                    ElseIf arno2.Value = True Then
                    addup(2) = 0
                End If
                If aryes3.Value = True Then
                    addup(3) = 100
                    ElseIf arno3.Value = True Then
                    addup(3) = 0
                End If
                If aryes4.Value = True Then
                    addup(4) = 100
                    ElseIf arno4.Value = True Then
                    addup(4) = 0
                End If
                If aryes5.Value = True Then
                    addup(5) = 100
                    ElseIf arno5.Value = True Then
                    addup(5) = 0
                End If
                If aryes6.Value = True Then
                    addup(6) = 100
                    ElseIf arno6.Value = True Then
                    addup(6) = 0
                End If
                If aryes7.Value = True Then
                    addup(7) = 100
                    ElseIf arno7.Value = True Then
                    addup(7) = 0
                End If
                If aryes8.Value = True Then
                    addup(8) = 100
                    ElseIf arno8.Value = True Then
                    addup(8) = 0
                End If
                If aryes9.Value = True Then
                    addup(9) = 100
                    ElseIf arno9.Value = True Then
                    addup(9) = 0
                End If
    
    
        addup(11) = ((addup(0) + addup(1) + addup(2) + addup(3) + addup(4) + addup(5) + addup(6) + addup(7) + addup(8) + addup(9))) / 10
        termlbl5.Caption = addup(11)
        Me.termlbl5.Caption = Format(Me.termlbl5.Caption, "##0.00")
        
        Dim total2, Totals(3) As Double
    
    
                If termlbl6.Caption = "" Then
                    termlbl6.Caption = termlbl5.Caption / 3
                    Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                    termlbl7.Caption = termlbl6.Caption
                End If
                If termlbl3.Caption <> "" And termlbl5.Caption <> "" Then
                    total2 = 0
                    Totals(0) = termlbl3.Caption
                    Totals(2) = termlbl5.Caption
                    total2 = CDbl(Totals(0)) + CDbl(Totals(2))
                    termlbl6.Caption = total2 / 3
                    Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                    termlbl7.Caption = termlbl6.Caption
                End If
                If termlbl4.Caption <> "" And termlbl5.Caption <> "" Then
                    total2 = 0
                    Totals(1) = termlbl4.Caption
                    Totals(2) = termlbl5.Caption
                    total2 = CDbl(Totals(1)) + CDbl(Totals(2))
                    termlbl6.Caption = total2 / 3
                    Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                    termlbl7.Caption = termlbl6.Caption
                End If
                If termlbl3.Caption <> "" And termlbl4.Caption <> "" And termlbl5.Caption <> "" Then
                    total2 = 0
                    Totals(0) = termlbl3.Caption
                    Totals(1) = termlbl4.Caption
                    Totals(2) = termlbl5.Caption
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
                    termlbl6.Caption = total2 / 3
                    Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                    termlbl7.Caption = termlbl6.Caption
                End If
    
    
        atblbl.Caption = termlbl6.Caption
        Me.atblbl.Caption = Format(Me.atblbl.Caption, "##0.00")
    
    
        Dim totals2, Totalss(3) As Double
    
    
                If atblbl2.Caption = "" Then
                    atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
                    Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
                If atblbl2.Caption <> "" Then
                    atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
                    Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
                If atblbl.Caption <> "" And atblbl1.Caption <> "" Then
                    totals2 = 0
                    Totalss(0) = atblbl.Caption * 0.15
                    Totalss(1) = atblbl1.Caption * 0.1
                    totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
                    atblbl2.Caption = totals2 / 0.25
                    Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
    
    
        Set addnew = wks.Range("BN3").Offset(0, 0)
    
    
        addnew.Offset(0, 0).Value = termlbl5.Caption
        
        Set addnew = wks.Range("BL4").Offset(0, 0)
    
    
        addnew.Offset(0, 0).Value = Label98.Caption
        
        Set addnew = wks.Range("BM5").Offset(0, 0)
    
    
        addnew.Offset(0, 0).Value = termlbl6.Caption
        
        CommandButton10.Enabled = False
    
    
                If atblbl2.Caption <> "" Then
                    finallbl.Caption = atblbl2.Caption * 0.25
                    Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
                End If
        Call calculate
        Call colors
        
     Set wks = Sheet2
        Set addnew = wks.Range("F2").Offset(0, 0)
        addnew.Offset(0, 0).Value = atblbl2.Caption
    
    
        Call ChangeChart("GraphChart")
    
    
    End Sub
    
    
    
    
    Private Sub CommandButton12_Click()
        Dim cont As Control
    
    
            For Each cont In Me.Controls
                If cont.Name Like "ar*" Then cont = vbNullString
                    Next
                    termlbl5.Caption = ""
                    termlbl6.Caption = ""
                    termlbl7.Caption = ""
                    CommandButton10.Enabled = True
                    atblbl.Caption = ""
                    atblbl2.Caption = ""
    End Sub
    
    
    Private Sub CommandButton13_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Communications and Conduct")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    
    
    End Sub
    
    
    Private Sub CommandButton14_Click()
        Dim wks As Worksheet
        Dim addnew As Range
        Dim addup(15) As Double
        Set wks = Sheet9
        Set addnew = wks.Range("BY3").Offset(0, 0)
                If ccyes.Value = True Then
                    addnew.Offset(0, 0).Value = ccyes.Caption
                    ElseIf ccno.Value = True Then
                    addnew.Offset(0, 0).Value = ccno.Caption
                End If
                If ccyes1.Value = True Then
                    addnew.Offset(0, 1).Value = ccyes1.Caption
                    ElseIf ccno1.Value = True Then
                    addnew.Offset(0, 1).Value = ccno1.Caption
                End If
                If ccyes2.Value = True Then
                    addnew.Offset(0, 2).Value = ccyes2.Caption
                    ElseIf ccno2.Value = True Then
                    addnew.Offset(0, 2).Value = ccno2.Caption
                End If
                If ccyes3.Value = True Then
                    addnew.Offset(0, 3).Value = ccyes3.Caption
                    ElseIf ccno3.Value = True Then
                    addnew.Offset(0, 3).Value = ccno3.Caption
                End If
                If ccyes4.Value = True Then
                    addnew.Offset(0, 4).Value = ccyes4.Caption
                    ElseIf ccno4.Value = True Then
                    addnew.Offset(0, 4).Value = ccno4.Caption
                End If
                If ccyes5.Value = True Then
                    addnew.Offset(0, 5).Value = ccyes5.Caption
                    ElseIf ccno5.Value = True Then
                    addnew.Offset(0, 5).Value = ccno5.Caption
                End If
                If ccyes6.Value = True Then
                    addnew.Offset(0, 6).Value = ccyes6.Caption
                    ElseIf ccno6.Value = True Then
                    addnew.Offset(0, 6).Value = ccno6.Caption
                End If
                If ccyes7.Value = True Then
                    addnew.Offset(0, 7).Value = ccyes7.Caption
                    ElseIf ccno7.Value = True Then
                    addnew.Offset(0, 7).Value = ccno7.Caption
                End If
                If ccyes8.Value = True Then
                    addnew.Offset(0, 8).Value = ccyes8.Caption
                    ElseIf ccno8.Value = True Then
                    addnew.Offset(0, 8).Value = ccno8.Caption
                End If
                If ccyes9.Value = True Then
                    addnew.Offset(0, 9).Value = ccyes9.Caption
                    ElseIf ccno9.Value = True Then
                    addnew.Offset(0, 9).Value = ccno9.Caption
                End If
    
    
                If ccyes.Value = True Then
                    addup(0) = 100
                    ElseIf ccno.Value = True Then
                    addup(0) = 0
                End If
                If ccyes1.Value = True Then
                    addup(1) = 100
                    ElseIf ccno1.Value = True Then
                    addup(1) = 0
                End If
                If ccyes2.Value = True Then
                    addup(2) = 100
                    ElseIf ccno2.Value = True Then
                    addup(2) = 0
                End If
                If ccyes3.Value = True Then
                    addup(3) = 100
                    ElseIf ccno3.Value = True Then
                    addup(3) = 0
                End If
                If ccyes4.Value = True Then
                    addup(4) = 100
                    ElseIf ccno4.Value = True Then
                    addup(4) = 0
                End If
                If ccyes5.Value = True Then
                    addup(5) = 100
                    ElseIf ccno5.Value = True Then
                    addup(5) = 0
                End If
                If ccyes6.Value = True Then
                    addup(6) = 100
                    ElseIf ccno6.Value = True Then
                    addup(6) = 0
                End If
                If ccyes7.Value = True Then
                    addup(7) = 100
                    ElseIf ccno7.Value = True Then
                    addup(7) = 0
                End If
                If ccyes8.Value = True Then
                    addup(8) = 100
                    ElseIf ccno8.Value = True Then
                    addup(8) = 0
                End If
                If ccyes9.Value = True Then
                    addup(9) = 100
                    ElseIf ccno9.Value = True Then
                    addup(9) = 0
                End If
    
    
        addup(11) = ((addup(0) + addup(1) + addup(2) + addup(3) + addup(4) + addup(5) + addup(6) + addup(7) + addup(8) + addup(9))) / 10
        termlbl4.Caption = addup(11)
        Me.termlbl4.Caption = Format(Me.termlbl4.Caption, "##0.00")
    
    
        Dim total2, Totals(3) As Double
    
    
                If termlbl6.Caption = "" Then
                    termlbl6.Caption = termlbl4.Caption / 3
                    Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                    termlbl7.Caption = termlbl6.Caption
                End If
                If termlbl3.Caption <> "" And termlbl4.Caption <> "" Then
                    total2 = 0
                    Totals(0) = termlbl3.Caption
                    Totals(1) = termlbl4.Caption
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1))
                    termlbl6.Caption = total2 / 3
                    Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                    termlbl7.Caption = termlbl6.Caption
                End If
                If termlbl4.Caption <> "" And termlbl5.Caption <> "" Then
                    total2 = 0
                    Totals(1) = termlbl4.Caption
                    Totals(2) = termlbl5.Caption
                    total2 = CDbl(Totals(1)) + CDbl(Totals(2))
                    termlbl6.Caption = total2 / 3
                    Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                    termlbl7.Caption = termlbl6.Caption
                End If
                If termlbl3.Caption <> "" And termlbl4.Caption <> "" And termlbl5.Caption <> "" Then
                    total2 = 0
                    Totals(0) = termlbl3.Caption
                    Totals(1) = termlbl4.Caption
                    Totals(2) = termlbl5.Caption
                    total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
                    termlbl6.Caption = total2 / 3
                    Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                    termlbl7.Caption = termlbl6.Caption
                End If
    
    
        atblbl.Caption = termlbl6.Caption
        Me.atblbl.Caption = Format(Me.atblbl.Caption, "##0.00")
    
    
        Dim totals2, Totalss(3) As Double
    
    
                If atblbl2.Caption = "" Then
                    atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
                    Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
                If atblbl2.Caption <> "" Then
                    atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
                    Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
                If atblbl.Caption <> "" And atblbl1.Caption <> "" Then
                    totals2 = 0
                    Totalss(0) = atblbl.Caption * 0.15
                    Totalss(1) = atblbl1.Caption * 0.1
                    totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
                    atblbl2.Caption = totals2 / 0.25
                    Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
    
    
     
        Set addnew = wks.Range("BM3").Offset(0, 0)
    
    
        addnew.Offset(0, 0).Value = termlbl4.Caption
    
    
        Set addnew = wks.Range("BL4").Offset(0, 0)
    
    
        addnew.Offset(0, 0).Value = Label98.Caption
        
        Set addnew = wks.Range("BM5").Offset(0, 0)
    
    
        addnew.Offset(0, 0).Value = termlbl6.Caption
        
        CommandButton14.Enabled = False
    
    
                If atblbl2.Caption <> "" Then
                    finallbl.Caption = atblbl2.Caption * 0.25
                    Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
                End If
        Call calculate
        Call colors
        
    Set wks = Sheet2
        Set addnew = wks.Range("F2").Offset(0, 0)
        addnew.Offset(0, 0).Value = atblbl2.Caption
    
    
        Call ChangeChart("GraphChart")
        
    End Sub
    
    
    Private Sub CommandButton16_Click()
        Dim cont As Control
    
    
            For Each cont In Me.Controls
                If cont.Name Like "cc*" Then cont = vbNullString
                    Next
                    termlbl4.Caption = ""
                    termlbl6.Caption = ""
                    termlbl7.Caption = ""
                    CommandButton14.Enabled = True
                    atblbl.Caption = ""
                    atblbl2.Caption = ""
    End Sub
    
    
    Private Sub CommandButton17_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Audit Planning and Execution")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    
    
    End Sub
    
    
    Private Sub CommandButton18_Click()
        Dim wks As Worksheet
        Dim addnew As Range
        Dim addup(15) As Double
        Set wks = Sheet9
        Set addnew = wks.Range("BO3").Offset(0, 0)
                If apeyes.Value = True Then
                    addnew.Offset(0, 0).Value = apeyes.Caption
                    ElseIf apeno.Value = True Then
                    addnew.Offset(0, 0).Value = apeno.Caption
                End If
                If apeyes1.Value = True Then
                    addnew.Offset(0, 1).Value = apeyes1.Caption
                    ElseIf apeno1.Value = True Then
                    addnew.Offset(0, 1).Value = apeno1.Caption
                End If
                If apeyes2.Value = True Then
                    addnew.Offset(0, 2).Value = apeyes2.Caption
                    ElseIf apeno2.Value = True Then
                    addnew.Offset(0, 2).Value = apeno2.Caption
                End If
                If apeyes3.Value = True Then
                    addnew.Offset(0, 3).Value = apeyes3.Caption
                    ElseIf apeno3.Value = True Then
                    addnew.Offset(0, 3).Value = apeno3.Caption
                End If
                If apeyes4.Value = True Then
                    addnew.Offset(0, 4).Value = apeyes4.Caption
                    ElseIf apeno4.Value = True Then
                    addnew.Offset(0, 4).Value = apeno4.Caption
                End If
                If apeyes5.Value = True Then
                    addnew.Offset(0, 5).Value = apeyes5.Caption
                    ElseIf apeno5.Value = True Then
                    addnew.Offset(0, 5).Value = apeno5.Caption
                End If
                If apeyes6.Value = True Then
                    addnew.Offset(0, 6).Value = apeyes6.Caption
                    ElseIf apeno6.Value = True Then
                    addnew.Offset(0, 6).Value = apeno6.Caption
                End If
                If apeyes7.Value = True Then
                    addnew.Offset(0, 7).Value = apeyes7.Caption
                    ElseIf apeno7.Value = True Then
                    addnew.Offset(0, 7).Value = apeno7.Caption
                End If
                If apeyes8.Value = True Then
                    addnew.Offset(0, 8).Value = apeyes8.Caption
                    ElseIf apeno8.Value = True Then
                    addnew.Offset(0, 8).Value = apeno8.Caption
                End If
                If apeyes9.Value = True Then
                    addnew.Offset(0, 9).Value = apeyes9.Caption
                    ElseIf apeno9.Value = True Then
                    addnew.Offset(0, 9).Value = apeno9.Caption
                End If
    
    
                If apeyes.Value = True Then
                    addup(0) = 100
                    ElseIf apeno.Value = True Then
                    addup(0) = 0
                End If
                If apeyes1.Value = True Then
                    addup(1) = 100
                    ElseIf apeno1.Value = True Then
                    addup(1) = 0
                End If
                If apeyes2.Value = True Then
                    addup(2) = 100
                    ElseIf apeno2.Value = True Then
                    addup(2) = 0
                End If
                If apeyes3.Value = True Then
                    addup(3) = 100
                    ElseIf apeno3.Value = True Then
                    addup(3) = 0
                End If
                If apeyes4.Value = True Then
                    addup(4) = 100
                    ElseIf apeno4.Value = True Then
                    addup(4) = 0
                End If
                If apeyes5.Value = True Then
                    addup(5) = 100
                    ElseIf apeno5.Value = True Then
                    addup(5) = 0
                End If
                If apeyes6.Value = True Then
                    addup(6) = 100
                    ElseIf apeno6.Value = True Then
                    addup(6) = 0
                End If
                If apeyes7.Value = True Then
                    addup(7) = 100
                    ElseIf apeno7.Value = True Then
                    addup(7) = 0
                End If
                If apeyes8.Value = True Then
                    addup(8) = 100
                    ElseIf apeno8.Value = True Then
                    addup(8) = 0
                End If
                If apeyes9.Value = True Then
                    addup(9) = 100
                    ElseIf apeno9.Value = True Then
                    addup(9) = 0
                End If
    
    
        addup(11) = ((addup(0) + addup(1) + addup(2) + addup(3) + addup(4) + addup(5) + addup(6) + addup(7) + addup(8) + addup(9))) / 10
        termlbl3.Caption = addup(11)
        Me.termlbl3.Caption = Format(Me.termlbl3.Caption, "##0.00")
    
    
        Dim total2, Totals(3) As Double
    
    
                If termlbl6.Caption = "" Then
                    termlbl6.Caption = termlbl3.Caption / 3
                    Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                    termlbl7.Caption = termlbl6.Caption
                End If
                If termlbl3.Caption <> "" And termlbl5.Caption <> "" Then
                    total2 = 0
                    Totals(0) = termlbl3.Caption
                    Totals(2) = termlbl5.Caption
                        total2 = CDbl(Totals(0)) + CDbl(Totals(2))
                        termlbl6.Caption = total2 / 3
                        Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                        termlbl7.Caption = termlbl6.Caption
                End If
                If termlbl4.Caption <> "" And termlbl3.Caption <> "" Then
                    total2 = 0
                    Totals(1) = termlbl4.Caption
                    Totals(0) = termlbl3.Caption
                        total2 = CDbl(Totals(1)) + CDbl(Totals(0))
                        termlbl6.Caption = total2 / 3
                        Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                        termlbl7.Caption = termlbl6.Caption
                End If
                If termlbl3.Caption <> "" And termlbl4.Caption <> "" And termlbl5.Caption <> "" Then
                    total2 = 0
                    Totals(0) = termlbl3.Caption
                    Totals(1) = termlbl4.Caption
                    Totals(2) = termlbl5.Caption
                        total2 = CDbl(Totals(0)) + CDbl(Totals(1)) + CDbl(Totals(2))
                        termlbl6.Caption = total2 / 3
                        Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
                        termlbl7.Caption = termlbl6.Caption
                End If
    
    
        atblbl.Caption = termlbl6.Caption
        Me.atblbl.Caption = Format(Me.atblbl.Caption, "##0.00")
    
    
        Dim totals2, Totalss(3) As Double
    
    
                If atblbl2.Caption = "" Then
                    atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
                    Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
                If atblbl2.Caption <> "" Then
                    atblbl2.Caption = (termlbl6.Caption * 0.15) / 0.25
                    Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
                If atblbl.Caption <> "" And atblbl1.Caption <> "" Then
                    totals2 = 0
                    Totalss(0) = atblbl.Caption * 0.15
                    Totalss(1) = atblbl1.Caption * 0.1
                        totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
                        atblbl2.Caption = totals2 / 0.25
                        Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
    
    
        Set addnew = wks.Range("BL3").Offset(0, 0)
    
    
        addnew.Offset(0, 0).Value = termlbl3.Caption
        
        Set addnew = wks.Range("BL4").Offset(0, 0)
    
    
        addnew.Offset(0, 0).Value = Label98.Caption
        
        Set addnew = wks.Range("BM5").Offset(0, 0)
    
    
        addnew.Offset(0, 0).Value = termlbl6.Caption
        
        CommandButton18.Enabled = False
    
    
                If atblbl2.Caption <> "" Then
                    finallbl.Caption = atblbl2.Caption * 0.25
                    Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
                End If
        Call calculate
        Call colors
    
    
     Set wks = Sheet2
        Set addnew = wks.Range("F2").Offset(0, 0)
        addnew.Offset(0, 0).Value = atblbl2.Caption
        
        Call ChangeChart("GraphChart")
        
    End Sub
    
    
    
    
    Private Sub CommandButton2_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Engagement Economics")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    
    
    End Sub
    
    
    Private Sub CommandButton20_Click()
        Dim cont As Control
    
    
            For Each cont In Me.Controls
                If cont.Name Like "ape*" Then cont = vbNullString
                    Next
                    termlbl3.Caption = ""
                    termlbl6.Caption = ""
                    termlbl7.Caption = ""
                    CommandButton18.Enabled = True
                    atblbl.Caption = ""
                    atblbl2.Caption = ""
    End Sub
    
    
    
    
    Private Sub CommandButton21_Click()
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        Set addnew = wks.Range("CS3").Offset(0, 0)
    
    
        addnew.Offset(0, 0).Value = TextBox2.Text
    
    
    End Sub
    
    
    Private Sub CommandButton22_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Audit Reporting")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    
    
    End Sub
    
    
    
    
    
    
    Private Sub CommandButton4_Click()
    
    
        Dim cont As Control
    
    
            For Each cont In Me.Controls
                If cont.Name Like "ee*" Then cont = vbNullString
                    Next
                    CommandButton1.Enabled = False
                    englbl.Caption = ""
                    englbl1.Caption = ""
    End Sub
    
    
    Private Sub CommandButton5_Click()
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
    
    
                If teamtxt.Text = "" Then
                    teamtxt.Text = 0
                End If
                If teamtxt1.Text = "" Then
                    teamtxt1.Text = 0
                End If
                If teamtxt2.Text = "" Then
                    teamtxt2.Text = 0
                End If
                If teamtxt3.Text = "" Then
                    teamtxt3.Text = 0
                End If
                If teamtxt4.Text = "" Then
                    teamtxt4.Text = 0
                End If
                If teamtxt5.Text = "" Then
                    teamtxt5.Text = 0
                End If
        
        Dim Total As Double
            Total = 0
                If Len(teamtxt.Value) > 0 Then Total = Total + CDbl(teamtxt.Value)
                If Len(teamtxt1.Value) > 0 Then Total = Total + CDbl(teamtxt1.Value)
                If Len(teamtxt2.Value) > 0 Then Total = Total + CDbl(teamtxt2.Value)
                    teamlbl.Caption = Total
                    Me.teamlbl.Caption = Format(teamlbl.Caption, "###,##0;(###,##0)")
        Dim Total1 As Double
            Total1 = 0
                If Len(teamtxt3.Value) > 0 Then Total1 = Total1 + CDbl(teamtxt3.Value)
                If Len(teamtxt4.Value) > 0 Then Total1 = Total1 + CDbl(teamtxt4.Value)
                If Len(teamtxt5.Value) > 0 Then Total1 = Total1 + CDbl(teamtxt5.Value)
                    teamlbl1.Caption = Total1
                    Me.teamlbl1.Caption = Format(teamlbl1.Caption, "###,##0;(###,##0)")
        
        Dim teams As Double
            teams = ((10 - (teamlbl.Caption * 1)) * 6) + ((10 - (teamlbl1.Caption * 1)) * 4)
                If teams = ((10 - (teamlbl.Caption * 1)) * 6) + ((10 - (teamlbl1.Caption * 1)) * 4) Then
                    teamlbl2.Caption = teams
                    Me.teamlbl2.Caption = Format(Me.teamlbl2.Caption, "##0.00")
                End If
                    atblbl1.Caption = teamlbl2.Caption
        
        Dim totals2, Totalss(3) As Double
    
    
                If atblbl2.Caption = "" Then
                    atblbl2.Caption = (atblbl1.Caption * 0.1) / 0.25
                    Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
                If atblbl.Caption <> "" And atblbl1.Caption <> "" Then
                    totals2 = 0
                    Totalss(0) = atblbl.Caption * 0.15
                    Totalss(1) = atblbl1.Caption * 0.1
                        totals2 = CDbl(Totalss(0)) + CDbl(Totalss(1))
                        atblbl2.Caption = totals2 / 0.25
                        Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
                End If
                           
                If atblbl2.Caption <> "" Then
                    finallbl.Caption = atblbl2.Caption * 0.25
                    Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
                End If
        Call behavior
        
        Call calculate
        Call colors
        
         Set wks = Sheet2
        Set addnew = wks.Range("F2").Offset(0, 0)
        addnew.Offset(0, 0).Value = atblbl2.Caption
        
        Call ChangeChart("GraphChart")
        
    End Sub
    Private Sub behavior()
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
         
            Set addnew = wks.Range("CU3").Offset(0, 0)
               addnew.Offset(0, 0).Value = Label162.Caption
               addnew.Offset(1, 0).Value = Label163.Caption
               addnew.Offset(2, 0).Value = Label164.Caption
               addnew.Offset(3, 0).Value = Label118.Caption
            Set addnew = wks.Range("CV3").Offset(0, 0)
               addnew.Offset(0, 0).Value = leadlbl1.Caption
               addnew.Offset(1, 0).Value = balbl2.Caption
               addnew.Offset(2, 0).Value = balbl3.Caption
            Set addnew = wks.Range("CW3").Offset(0, 0)
               addnew.Offset(0, 0).Value = teamtxt.Text
               addnew.Offset(1, 0).Value = teamtxt1.Text
               addnew.Offset(2, 0).Value = teamtxt2.Text
               addnew.Offset(3, 0).Value = teamlbl.Caption
            Set addnew = wks.Range("CX3").Offset(0, 0)
               addnew.Offset(0, 0).Value = teamtxt3.Text
               addnew.Offset(1, 0).Value = teamtxt4.Text
               addnew.Offset(2, 0).Value = teamtxt5.Text
               addnew.Offset(3, 0).Value = teamlbl1.Caption
            Set addnew = wks.Range("CT3").Offset(0, 0)
                addnew.Offset(0, 0).Value = teamlbl2.Caption
    
    
    End Sub
    Private Sub CommandButton6_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Team Behavior")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    End Sub
    
    
    Private Sub CommandButton8_Click()
    
    
        Dim cont As Control
    
    
            For Each cont In Me.Controls
                If cont.Name Like "team*" Then cont = vbNullString
                    Next
                    atblbl2.Caption = ""
    
    
    End Sub
    
    
    Private Sub CommandButton9_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Audit Reporting")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    End Sub
    
    
    Private Sub daqtxt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim draft As Double
                If daqtxt.Value = "" Then
                  daqtxt.Text = 0
                  ElseIf Not IsNumeric(daqtxt.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
    End Sub
    
    
    
    
    Private Sub eetxt_AfterUpdate()
        Me.eetxt.Text = Format(Me.eetxt.Text, "#,##0.00;(#,##0.00)")
        
    End Sub
    
    
    Private Sub eetxt1_AfterUpdate()
        Me.eetxt1.Text = Format(Me.eetxt1.Text, "#,##0.00;(#,##0.00)")
    End Sub
    
    
    Private Sub eetxt2_AfterUpdate()
        Me.eetxt2.Text = Format(Me.eetxt2.Text, "#,##0.00;(#,##0.00)")
    End Sub
    
    
    Private Sub eetxt3_AfterUpdate()
        Me.eetxt3.Text = Format(Me.eetxt3.Text, "#,##0.00;(#,##0.00)")
    End Sub
    
    
    
    
    Private Sub eetxt4_AfterUpdate()
        Me.eetxt4.Text = Format(Me.eetxt4.Text, "#,##0.00;(#,##0.00)")
    End Sub
    
    
    Private Sub eetxt5_AfterUpdate()
        Me.eetxt5.Text = Format(Me.eetxt5.Text, "#,##0.00;(#,##0.00)")
    End Sub
    
    
    
    
    Private Sub eetxt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim draft As Double
                If eetxt.Value = "" Then
                    MsgBox "Textbox is empty!"
                    Cancel = True
                    ElseIf Not IsNumeric(eetxt.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                
                If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
                    CommandButton1.Enabled = True
                    Else
                    CommandButton1.Enabled = False
                End If
    
    
        Call economics
    End Sub
    
    
    Private Sub eetxt5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim draft As Double
                If eetxt5.Value = "" Then
                    MsgBox "Textbox is empty!"
                    Cancel = True
                    ElseIf Not IsNumeric(eetxt5.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
                    CommandButton1.Enabled = True
                    Else
                    CommandButton1.Enabled = False
                End If
    
    
        Call economics
    End Sub
    Private Sub eetxt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim draft As Double
                If eetxt1.Value = "" Then
                    MsgBox "Textbox is empty!"
                    Cancel = True
                    ElseIf Not IsNumeric(eetxt1.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
                    CommandButton1.Enabled = True
                    Else
                    CommandButton1.Enabled = False
                End If
    
    
        Call economics
    End Sub
    Private Sub eetxt2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim draft As Double
                If eetxt2.Value = "" Then
                    MsgBox "Textbox is empty!"
                    Cancel = True
                    ElseIf Not IsNumeric(eetxt2.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
                    CommandButton1.Enabled = True
                    Else
                    CommandButton1.Enabled = False
                End If
    
    
        Call economics
    End Sub
    Private Sub eetxt3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim draft As Double
                If eetxt3.Value = "" Then
                    MsgBox "Textbox is empty!"
                    Cancel = True
                    ElseIf Not IsNumeric(eetxt3.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
                    CommandButton1.Enabled = True
                    Else
                    CommandButton1.Enabled = False
                End If
    
    
        Call economics
    End Sub
    Private Sub eetxt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim draft As Double
                If eetxt4.Value = "" Then
                    MsgBox "Textbox is empty!"
                    Cancel = True
                    ElseIf Not IsNumeric(eetxt4.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
                    CommandButton1.Enabled = True
                    Else
                    CommandButton1.Enabled = False
                End If
    
    
        Call economics
    End Sub
    Private Sub exit1_Click()
        Dim iExit As VbMsgBoxResult
    
    
            iExit = MsgBox("Confirm if you want to exit.", vbQuestion + vbYesNo, "Engagement Communications")
    
    
                If iExit = vbYes Then
                    Unload Me
                End If
    
    
    End Sub
    
    
    
    
    Private Sub obcombo_Change()
                If (obcombo.Text = "Regular") Then
                    oblbl.Caption = 23
                    ElseIf (obcombo.Text = "Hybrid") Then
                    oblbl.Caption = 24
                End If
                If (obcombo.Text = "Regular") Then
                    awpEnter.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    awpEnter.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes1.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes1.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo1.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo1.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa1.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa1.Enabled = True
                End If
                
                If (obcombo.Text = "Regular") Then
                    obYes2.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes2.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo2.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo2.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa2.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa2.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes3.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes3.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo3.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo3.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa3.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa3.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes4.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes4.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo4.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo4.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa4.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa4.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes5.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes5.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo5.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo5.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa5.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa5.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes6.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes6.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo6.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo6.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa6.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa6.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes7.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes7.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo7.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo7.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa7.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa7.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes8.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes8.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo8.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo8.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa8.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa8.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes9.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes9.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo9.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo9.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa9.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa9.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes10.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes10.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo10.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo10.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa10.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa10.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes11.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes11.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo11.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo11.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa11.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa11.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes12.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes12.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo12.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo12.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa12.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa12.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes13.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes13.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo13.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo13.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa13.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa13.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes14.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes14.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo14.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo14.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa14.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa14.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes15.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes15.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo15.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo15.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa15.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa15.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes16.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes16.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo16.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo16.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa16.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa16.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes17.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes17.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo17.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo17.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa17.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa17.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes18.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes18.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo18.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo18.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa18.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa18.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes19.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes19.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo19.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo19.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa19.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa19.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes20.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes20.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo20.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo20.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa20.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa20.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes21.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes21.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo21.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo21.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa21.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa21.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes22.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes22.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo22.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo22.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa22.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa22.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obYes23.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obYes23.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo23.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo23.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNo23.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNo23.Enabled = True
                End If
                If (obcombo.Text = "Regular") Then
                    obNa23.Enabled = True
                    ElseIf (obcombo.Text = "Hybrid") Then
                    obNa23.Enabled = True
                End If
                        
               Call awp
                 
    End Sub
    
    
    
    
    Private Sub pesatcb_Change()
        
        TextBox6.Text = pesatcb.Text
    End Sub
    
    
    
    
    Private Sub pesatcb1_Change()
    
    
        TextBox8.Text = pesatcb1.Text
        
    End Sub
    
    
    Private Sub pesatcb2_Change()
    
    
        TextBox7.Text = pesatcb2.Text
       
    End Sub
    
    
    Private Sub reset_Click()
    
    
        Dim cont As Control
    
    
            For Each cont In Me.Controls
                If cont.Name Like "ec*" Then cont = vbNullString
                    Next
                    atqlbl2.Caption = ""
                    atqlbl3.Caption = ""
                    adddata.Enabled = True
    End Sub
    
    
    
    
    Private Sub teamtxt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
                    If Not IsNumeric(teamtxt.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                Call behavior
    End Sub
    
    
    
    
    Private Sub teamtxt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
                    If Not IsNumeric(teamtxt1.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                Call behavior
    End Sub
    Private Sub teamtxt2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
                    If Not IsNumeric(teamtxt2.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                Call behavior
    End Sub
    Private Sub teamtxt3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
                    If Not IsNumeric(teamtxt3.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                Call behavior
    End Sub
    Private Sub teamtxt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
                    If Not IsNumeric(teamtxt4.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                Call behavior
    End Sub
    Private Sub teamtxt5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
                    If Not IsNumeric(teamtxt5.Value) Then
                    MsgBox "Only numbers allowed"
                    Cancel = True
                End If
                Call behavior
    End Sub
    
    
    
    
    Private Sub TextBox1_Change()
        TextBox1.Value = _
        Application _
        .WorksheetFunction _
        .Proper(TextBox1.Value)
    
    
    End Sub
    
    
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        Set addnew = wks.Range("B3").Offset(0, 0)
            addnew.Offset(0, 0).Value = TextBox1.Text
    
    
    End Sub
    
    
    Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
                If TextBox2.SelStart = 0 Then KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
    
    End Sub
    
    
    
    
    
    
    
    
    Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        Set addnew = wks.Range("D3").Offset(0, 0)
                If TextBox4.Text <> "" Then
                    If IsDate(TextBox4.Text) Then
                        TextBox4.Text = Format(TextBox4.Text, "mmmm dd, yyyy")
                        Else
                            MsgBox "Please enter a valid date!"
                            Cancel = True
                    End If
                End If
            
            
            addnew.Offset(0, 0).Value = TextBox4.Text
    
    
    End Sub
    
    
    Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        Set addnew = wks.Range("C3").Offset(0, 0)
                If TextBox5.Text <> "" Then
                    If IsDate(TextBox5.Text) Then
                        TextBox5.Text = Format(TextBox5.Text, "mmmm dd, yyyy")
                        Else
                            MsgBox "Please enter a valid date!"
                            Cancel = True
                    End If
                End If
            
            
            addnew.Offset(0, 0).Value = TextBox5.Text
    
    
    End Sub
    
    
    Private Sub TextBox6_Change()
        
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        Set addnew = wks.Range("CV3").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = TextBox6.Text
         Set addnew = wks.Range("BH3").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = TextBox6.Text
        leadlbl.Caption = TextBox6.Text
        leadlbl1.Caption = TextBox6.Text
    
    
    End Sub
    
    
    Private Sub TextBox7_Change()
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        Set addnew = wks.Range("CV5").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = TextBox7.Text
         Set addnew = wks.Range("BH5").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = TextBox7.Text
        
        balbl1.Caption = TextBox7.Text
        balbl3.Caption = TextBox7.Text
    
    
    End Sub
    
    
    Private Sub TextBox8_Change()
        Dim wks As Worksheet
        Dim addnew As Range
        Set wks = Sheet9
        Set addnew = wks.Range("CV4").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = TextBox8.Text
        Set addnew = wks.Range("BH4").Offset(0, 0)
       
            addnew.Offset(0, 0).Value = TextBox8.Text
    
    
        balbl.Caption = TextBox8.Text
        balbl2.Caption = TextBox8.Text
    
    
    End Sub
    
    
    Private Sub txt1_Enter()
            If txt1.Text = txt1.Tag Then
                txt1.Value = vbNullString
                txt1.ForeColor = vbBlack
            End If
    End Sub
    
    
    Private Sub txt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        
                If txt1.Text <> "" Then
                    If IsDate(txt1.Text) Then
                        txt1.Text = Format(txt1.Text, "mm/dd/yyyy")
                        Else
                            MsgBox "Please enter a valid date!"
                            Cancel = True
                    End If
                End If
            
            If Len(txt1.Text) = 0 Then
                txt1.Text = txt1.Tag
                txt1.ForeColor = &HFFFFFF
            End If
        
        If IsDate(txt1.Text) And IsDate(txt2.Text) Then
            btnEnter.Enabled = True
            Else
            btnEnter.Enabled = False
        End If
        
     End Sub
    
    
    
    
    Private Sub txt2_Enter()
            If txt2.Text = txt2.Tag Then
                txt2.Value = vbNullString
                txt2.ForeColor = vbBlack
            End If
    End Sub
    
    
    Private Sub txt2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    
                If txt2.Text <> "" Then
                    If IsDate(txt2.Text) Then
                        txt2.Text = Format(txt2.Text, "mm/dd/yyyy")
                        btnEnter.Enabled = True
                        Else
                        btnEnter.Enabled = False
                        MsgBox "Please enter a valid date!"
                            Cancel = True
                    End If
                End If
                
            If Len(txt2.Text) = 0 Then
                txt2.Text = txt2.Tag
                txt2.ForeColor = &HFFFFFF
            End If
    
    
    If IsDate(txt1.Text) And IsDate(txt2.Text) Then
            btnEnter.Enabled = True
            Else
            btnEnter.Enabled = False
        End If
            
    End Sub
    
    
    Private Sub txt3_Enter()
            If txt3.Text = txt3.Tag Then
                txt3.Value = vbNullString
                txt3.ForeColor = vbBlack
            End If
    
    
    End Sub
    
    
    Private Sub txt3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
                If txt3.Text <> "" Then
                    If IsDate(txt3.Text) Then
                        txt3.Text = Format(txt3.Text, "mm/dd/yyyy")
                        Else
                            MsgBox "Please enter a valid date!"
                            Cancel = True
                    End If
                End If
            
            If Len(txt3.Text) = 0 Then
                txt3.Text = txt3.Tag
                txt3.ForeColor = &HFFFFFF
            End If
    
    
    If IsDate(txt3.Text) And IsDate(txt4.Text) Then
            btnEnter1.Enabled = True
            Else
            btnEnter1.Enabled = False
        End If
        
    End Sub
    
    
    Private Sub txt4_Enter()
            If txt4.Text = txt4.Tag Then
                txt4.Value = vbNullString
                txt4.ForeColor = vbBlack
            End If
    
    
    End Sub
    
    
    Private Sub txt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
                
                If txt4.Text <> "" Then
                    If IsDate(txt4.Text) Then
                        txt4.Text = Format(txt4.Text, "mm/dd/yyyy")
                        Else
                            MsgBox "Please enter a valid date!"
                            Cancel = True
                    End If
                End If
    
    
            If Len(txt4.Text) = 0 Then
                txt4.Text = txt4.Tag
                txt4.ForeColor = &HFFFFFF
            End If
    
    
    If IsDate(txt3.Text) And IsDate(txt4.Text) Then
            btnEnter1.Enabled = True
            Else
            btnEnter1.Enabled = False
        End If
        
    End Sub
    
    
    Private Sub txt5_Enter()
            If txt5.Text = txt5.Tag Then
                txt5.Value = vbNullString
                txt5.ForeColor = vbBlack
            End If
    
    
    End Sub
    Private Sub txt5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
                
                If txt5.Text <> "" Then
                    If IsDate(txt5.Text) Then
                        txt5.Text = Format(txt5.Text, "mm/dd/yyyy")
                        Else
                            MsgBox "Please enter a valid date!"
                            Cancel = True
                    End If
                End If
    
    
            If Len(txt5.Text) = 0 Then
                txt5.Text = txt5.Tag
                txt5.ForeColor = &HFFFFFF
            End If
    
    
    If IsDate(txt5.Text) And IsDate(txt6.Text) Then
            btnEnter2.Enabled = True
            Else
            btnEnter2.Enabled = False
        End If
    
    
    End Sub
    
    
    Private Sub txt6_Enter()
            If txt6.Text = txt6.Tag Then
                txt6.Value = vbNullString
                txt6.ForeColor = vbBlack
            End If
    
    
    End Sub
    
    
    Private Sub txt6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
                
                If txt6.Text <> "" Then
                    If IsDate(txt6.Text) Then
                        txt6.Text = Format(txt6.Text, "mm/dd/yyyy")
                        Else
                            MsgBox "Please enter a valid date!"
                            Cancel = True
                    End If
                End If
    
    
            If Len(txt6.Text) = 0 Then
                txt6.Text = txt6.Tag
                txt6.ForeColor = &HFFFFFF
            End If
    
    
    If IsDate(txt5.Text) And IsDate(txt6.Text) Then
            btnEnter2.Enabled = True
            Else
            btnEnter2.Enabled = False
        End If
    
    
    End Sub
    
    
    Private Sub colors()
        
        If atqlbl.Caption = "" Or atqlbl1.Caption = "" Or atqlbl2.Caption = "" Then
        Me.btn1.BackColor = RGB(255, 0, 0)
        Else
        Me.btn1.BackColor = RGB(0, 255, 0)
        End If
        If enlbl.Caption = "" Or enlbl1.Caption = "" Or enlbl2.Caption = "" Then
        Me.btn2.BackColor = RGB(255, 0, 0)
        Else
        Me.btn2.BackColor = RGB(0, 255, 0)
        End If
        If englbl.Caption = "" Then
        Me.btn3.BackColor = RGB(255, 0, 0)
        Else
        Me.btn3.BackColor = RGB(0, 255, 0)
        End If
        If atblbl.Caption = "" Or atblbl1.Caption = "" Then
        Me.btn4.BackColor = RGB(255, 0, 0)
        Else
        Me.btn2.BackColor = RGB(0, 255, 0)
        End If
    End Sub
    
    
    Private Sub datas()
        
    Dim wks As Worksheet
        Set wks = Sheet9
        Me.finallbl = wks.Range("A3").Offset(0, 0)
        Me.finallbl.Caption = Format(Me.finallbl.Caption, "##0.00")
        Me.TextBox1 = wks.Range("B3").Offset(0, 0)
        Me.TextBox5 = wks.Range("C3").Offset(0, 0)
        TextBox5.Text = Format(TextBox5.Text, "mmmm dd, yyyy")
        Me.TextBox4 = wks.Range("D3").Offset(0, 0)
        TextBox4.Text = Format(TextBox4.Text, "mmmm dd, yyyy")
        daqlbl2.Caption = wks.Range("E3").Offset(0, 0)
        Me.daqlbl2.Caption = Format(Me.daqlbl2.Caption, "##0.00")
        oblbl1.Caption = wks.Range("H3").Offset(0, 0)
        Me.oblbl1.Caption = Format(Me.oblbl1.Caption, "##0.00")
        daqtxt.Text = wks.Range("F3").Offset(0, 0)
        If wks.Range("G3").Offset(0, 0).Text = "Yes" Then
        daqobyes.Value = True
        ElseIf wks.Range("G3").Offset(0, 0).Text = "No" Then
        daqobno.Value = True
        ElseIf wks.Range("G3").Offset(0, 0).Text = "N/A" Then
        daqobna.Value = True
        End If
        eclbl2.Caption = wks.Range("AG3").Offset(0, 0)
        Me.eclbl2.Caption = Format(Me.eclbl2.Caption, "##0.00")
        If wks.Range("AH3").Offset(0, 0).Text = "Yes" Then
        ecYes.Value = True
        ElseIf wks.Range("AH3").Offset(0, 0).Text = "No" Then
        ecNo.Value = True
        ElseIf wks.Range("AH3").Offset(0, 0).Text = "N/A" Then
        ecNa.Value = True
        End If
        If wks.Range("AI3").Offset(0, 0).Text = "Yes" Then
        ecYes1.Value = True
        ElseIf wks.Range("AI3").Offset(0, 0).Text = "No" Then
        ecNo1.Value = True
        ElseIf wks.Range("AI3").Offset(0, 0).Text = "N/A" Then
        ecNa1.Value = True
        End If
        If wks.Range("AJ3").Offset(0, 0).Text = "Yes" Then
        ecYes2.Value = True
        ElseIf wks.Range("AJ3").Offset(0, 0).Text = "No" Then
        ecNo2.Value = True
        ElseIf wks.Range("AJ3").Offset(0, 0).Text = "N/A" Then
        ecNa2.Value = True
        End If
        If wks.Range("AK3").Offset(0, 0).Text = "Yes" Then
        ecYes3.Value = True
        ElseIf wks.Range("AK3").Offset(0, 0).Text = "No" Then
        ecNo3.Value = True
        ElseIf wks.Range("AK3").Offset(0, 0).Text = "N/A" Then
        ecNa3.Value = True
        End If
        If wks.Range("AL3").Offset(0, 0).Text = "Yes" Then
        ecYes4.Value = True
        ElseIf wks.Range("AL3").Offset(0, 0).Text = "No" Then
        ecNo4.Value = True
        ElseIf wks.Range("AL3").Offset(0, 0).Text = "N/A" Then
        ecNa4.Value = True
        End If
        If wks.Range("AM3").Offset(0, 0).Text = "Yes" Then
        ecYes5.Value = True
        ElseIf wks.Range("AM3").Offset(0, 0).Text = "No" Then
        ecNo5.Value = True
        ElseIf wks.Range("AM3").Offset(0, 0).Text = "N/A" Then
        ecNa5.Value = True
        End If
        If wks.Range("AN3").Offset(0, 0).Text = "Yes" Then
        ecYes6.Value = True
        ElseIf wks.Range("AN3").Offset(0, 0).Text = "No" Then
        ecNo6.Value = True
        ElseIf wks.Range("AN3").Offset(0, 0).Text = "N/A" Then
        ecNa6.Value = True
        End If
        If wks.Range("AO3").Offset(0, 0).Text = "Yes" Then
        ecYes7.Value = True
        ElseIf wks.Range("AO3").Offset(0, 0).Text = "No" Then
        ecNo7.Value = True
        ElseIf wks.Range("AO3").Offset(0, 0).Text = "N/A" Then
        ecNa7.Value = True
        End If
        If wks.Range("AP3").Offset(0, 0).Text = "Yes" Then
        ecYes8.Value = True
        ElseIf wks.Range("AP3").Offset(0, 0).Text = "No" Then
        ecNo8.Value = True
        ElseIf wks.Range("AP3").Offset(0, 0).Text = "N/A" Then
        ecNa8.Value = True
        End If
        If wks.Range("AQ3").Offset(0, 0).Text = "Yes" Then
        ecYes9.Value = True
        ElseIf wks.Range("AQ3").Offset(0, 0).Text = "No" Then
        ecNo9.Value = True
        ElseIf wks.Range("AQ3").Offset(0, 0).Text = "N/A" Then
        ecNa9.Value = True
        End If
        If wks.Range("AR3").Offset(0, 0).Text = "Yes" Then
        ecYes10.Value = True
        ElseIf wks.Range("AR3").Offset(0, 0).Text = "No" Then
        ecNo10.Value = True
        ElseIf wks.Range("AR3").Offset(0, 0).Text = "N/A" Then
        ecNa10.Value = True
        End If
        If wks.Range("AS3").Offset(0, 0).Text = "Yes" Then
        ecYes11.Value = True
        ElseIf wks.Range("AS3").Offset(0, 0).Text = "No" Then
        ecNo11.Value = True
        ElseIf wks.Range("AS3").Offset(0, 0).Text = "N/A" Then
        ecNa11.Value = True
        End If
        
        lblTotal.Caption = wks.Range("AT3").Offset(0, 0)
        Me.lblTotal.Caption = Format(Me.lblTotal.Caption, "##0.00")
        txt1.Text = wks.Range("AU3").Offset(0, 0)
        txt1.ForeColor = vbBlack
        txt1.Text = Format(txt1.Text, "mm/dd/yyyy")
        txt2.Text = wks.Range("AV3").Offset(0, 0)
        txt2.ForeColor = vbBlack
        txt2.Text = Format(txt2.Text, "mm/dd/yyyy")
        lbl1.Caption = wks.Range("AW3").Offset(0, 0)
        
        lblTotal1.Caption = wks.Range("AX3").Offset(0, 0)
        Me.lblTotal1.Caption = Format(Me.lblTotal1.Caption, "##0.00")
        txt3.Text = wks.Range("AY3").Offset(0, 0)
        txt3.ForeColor = vbBlack
        txt3.Text = Format(txt3.Text, "mm/dd/yyyy")
        txt4.Text = wks.Range("AZ3").Offset(0, 0)
        txt4.ForeColor = vbBlack
        txt4.Text = Format(txt4.Text, "mm/dd/yyyy")
        lbl2.Caption = wks.Range("BA3").Offset(0, 0)
        
        lblTotal2.Caption = wks.Range("BB3").Offset(0, 0)
        Me.lblTotal2.Caption = Format(Me.lblTotal2.Caption, "##0.00")
        txt5.Text = wks.Range("BC3").Offset(0, 0)
        txt5.ForeColor = vbBlack
        txt5.Text = Format(txt5.Text, "mm/dd/yyyy")
        txt6.Text = wks.Range("BD3").Offset(0, 0)
        txt6.ForeColor = vbBlack
        txt6.Text = Format(txt6.Text, "mm/dd/yyyy")
        lbl3.Caption = wks.Range("BE3").Offset(0, 0)
    
    
    
    
    
    
    End Sub
    
    
    Private Sub awp()
        Set wks = Sheet9
        If wks.Range("I3").Offset(0, 0).Text = "Yes" Then
        obYes.Value = True
        ElseIf wks.Range("I3").Offset(0, 0).Text = "No" Then
        obNo.Value = True
        ElseIf wks.Range("I3").Offset(0, 0).Text = "N/A" Then
        obNa.Value = True
        End If
        If wks.Range("J3").Offset(0, 0).Text = "Yes" Then
        obYes1.Value = True
        ElseIf wks.Range("J3").Offset(0, 0).Text = "No" Then
        obNo1.Value = True
        ElseIf wks.Range("J3").Offset(0, 0).Text = "N/A" Then
        obNa1.Value = True
        End If
        If wks.Range("K3").Offset(0, 0).Text = "Yes" Then
        obYes2.Value = True
        ElseIf wks.Range("K3").Offset(0, 0).Text = "No" Then
        obNo2.Value = True
        ElseIf wks.Range("K3").Offset(0, 0).Text = "N/A" Then
        obNa2.Value = True
        End If
        If wks.Range("L3").Offset(0, 0).Text = "Yes" Then
        obYes3.Value = True
        ElseIf wks.Range("L3").Offset(0, 0).Text = "No" Then
        obNo3.Value = True
        ElseIf wks.Range("L3").Offset(0, 0).Text = "N/A" Then
        obNa3.Value = True
        End If
        If wks.Range("M3").Offset(0, 0).Text = "Yes" Then
        obYes4.Value = True
        ElseIf wks.Range("M3").Offset(0, 0).Text = "No" Then
        obNo4.Value = True
        ElseIf wks.Range("M3").Offset(0, 0).Text = "N/A" Then
        obNa4.Value = True
        End If
        If wks.Range("N3").Offset(0, 0).Text = "Yes" Then
        obYes5.Value = True
        ElseIf wks.Range("N3").Offset(0, 0).Text = "No" Then
        obNo5.Value = True
        ElseIf wks.Range("N3").Offset(0, 0).Text = "N/A" Then
        obNa5.Value = True
        End If
        If wks.Range("O3").Offset(0, 0).Text = "Yes" Then
        obYes6.Value = True
        ElseIf wks.Range("O3").Offset(0, 0).Text = "No" Then
        obNo6.Value = True
        ElseIf wks.Range("O3").Offset(0, 0).Text = "N/A" Then
        obNa6.Value = True
        End If
        If wks.Range("P3").Offset(0, 0).Text = "Yes" Then
        obYes7.Value = True
        ElseIf wks.Range("P3").Offset(0, 0).Text = "No" Then
        obNo7.Value = True
        ElseIf wks.Range("P3").Offset(0, 0).Text = "N/A" Then
        obNa7.Value = True
        End If
        If wks.Range("Q3").Offset(0, 0).Text = "Yes" Then
        obYes8.Value = True
        ElseIf wks.Range("Q3").Offset(0, 0).Text = "No" Then
        obNo8.Value = True
        ElseIf wks.Range("Q3").Offset(0, 0).Text = "N/A" Then
        obNa8.Value = True
        End If
        If wks.Range("R3").Offset(0, 0).Text = "Yes" Then
        obYes9.Value = True
        ElseIf wks.Range("R3").Offset(0, 0).Text = "No" Then
        obNo9.Value = True
        ElseIf wks.Range("R3").Offset(0, 0).Text = "N/A" Then
        obNa9.Value = True
        End If
        If wks.Range("S3").Offset(0, 0).Text = "Yes" Then
        obYes10.Value = True
        ElseIf wks.Range("S3").Offset(0, 0).Text = "No" Then
        obNo10.Value = True
        ElseIf wks.Range("S3").Offset(0, 0).Text = "N/A" Then
        obNa10.Value = True
        End If
        If wks.Range("T3").Offset(0, 0).Text = "Yes" Then
        obYes11.Value = True
        ElseIf wks.Range("T3").Offset(0, 0).Text = "No" Then
        obNo11.Value = True
        ElseIf wks.Range("T3").Offset(0, 0).Text = "N/A" Then
        obNa11.Value = True
        End If
        If wks.Range("U3").Offset(0, 0).Text = "Yes" Then
        obYes12.Value = True
        ElseIf wks.Range("U3").Offset(0, 0).Text = "No" Then
        obNo12.Value = True
        ElseIf wks.Range("U3").Offset(0, 0).Text = "N/A" Then
        obNa12.Value = True
        End If
        If wks.Range("V3").Offset(0, 0).Text = "Yes" Then
        obYes13.Value = True
        ElseIf wks.Range("V3").Offset(0, 0).Text = "No" Then
        obNo13.Value = True
        ElseIf wks.Range("V3").Offset(0, 0).Text = "N/A" Then
        obNa13.Value = True
        End If
        If wks.Range("W3").Offset(0, 0).Text = "Yes" Then
        obYes14.Value = True
        ElseIf wks.Range("W3").Offset(0, 0).Text = "No" Then
        obNo14.Value = True
        ElseIf wks.Range("W3").Offset(0, 0).Text = "N/A" Then
        obNa14.Value = True
        End If
        If wks.Range("X3").Offset(0, 0).Text = "Yes" Then
        obYes15.Value = True
        ElseIf wks.Range("X3").Offset(0, 0).Text = "No" Then
        obNo15.Value = True
        ElseIf wks.Range("X3").Offset(0, 0).Text = "N/A" Then
        obNa15.Value = True
        End If
        If wks.Range("Y3").Offset(0, 0).Text = "Yes" Then
        obYes16.Value = True
        ElseIf wks.Range("Y3").Offset(0, 0).Text = "No" Then
        obNo16.Value = True
        ElseIf wks.Range("Y3").Offset(0, 0).Text = "N/A" Then
        obNa16.Value = True
        End If
        If wks.Range("Z3").Offset(0, 0).Text = "Yes" Then
        obYes17.Value = True
        ElseIf wks.Range("Z3").Offset(0, 0).Text = "No" Then
        obNo17.Value = True
        ElseIf wks.Range("Z3").Offset(0, 0).Text = "N/A" Then
        obNa17.Value = True
        End If
        If wks.Range("AA3").Offset(0, 0).Text = "Yes" Then
        obYes18.Value = True
        ElseIf wks.Range("AA3").Offset(0, 0).Text = "No" Then
        obNo18.Value = True
        ElseIf wks.Range("AA3").Offset(0, 0).Text = "N/A" Then
        obNa18.Value = True
        End If
        If wks.Range("AB3").Offset(0, 0).Text = "Yes" Then
        obYes19.Value = True
        ElseIf wks.Range("AB3").Offset(0, 0).Text = "No" Then
        obNo19.Value = True
        ElseIf wks.Range("AB3").Offset(0, 0).Text = "N/A" Then
        obNa19.Value = True
        End If
        If wks.Range("AC3").Offset(0, 0).Text = "Yes" Then
        obYes20.Value = True
        ElseIf wks.Range("AC3").Offset(0, 0).Text = "No" Then
        obNo20.Value = True
        ElseIf wks.Range("AC3").Offset(0, 0).Text = "N/A" Then
        obNa20.Value = True
        End If
        If wks.Range("AD3").Offset(0, 0).Text = "Yes" Then
        obYes21.Value = True
        ElseIf wks.Range("AD3").Offset(0, 0).Text = "No" Then
        obNo21.Value = True
        ElseIf wks.Range("AD3").Offset(0, 0).Text = "N/A" Then
        obNa21.Value = True
        End If
        If wks.Range("AE3").Offset(0, 0).Text = "Yes" Then
        obYes22.Value = True
        ElseIf wks.Range("AE3").Offset(0, 0).Text = "No" Then
        obNo22.Value = True
        ElseIf wks.Range("AE3").Offset(0, 0).Text = "N/A" Then
        obNa22.Value = True
        End If
        If wks.Range("AF3").Offset(0, 0).Text = "Yes" Then
        obYes23.Value = True
        ElseIf wks.Range("AF3").Offset(0, 0).Text = "No" Then
        obNo23.Value = True
        ElseIf wks.Range("AF3").Offset(0, 0).Text = "N/A" Then
        obNa23.Value = True
        End If
    
    
        
    End Sub
    Private Sub pesat()
        
        Dim wks As Worksheet
        Set wks = Sheet9
            TextBox6.Text = wks.Range("BH3").Offset(0, 0)
            TextBox8.Text = wks.Range("BH4").Offset(0, 0)
            TextBox7.Text = wks.Range("BH5").Offset(0, 0)
     
    End Sub
    
    
    Private Sub engagementeconomics()
        Dim wks As Worksheet
        Set wks = Sheet9
            eelbl7.Caption = wks.Range("BF3").Offset(0, 0)
            Me.eelbl7.Caption = Format(Me.eelbl7.Caption, "##0.00")
            eetxt.Text = wks.Range("BI3").Offset(0, 0)
            Me.eetxt.Text = Format(Me.eetxt.Text, "#,##0.00;(#,##0.00)")
            eetxt1.Text = wks.Range("BJ3").Offset(0, 0)
            Me.eetxt1.Text = Format(Me.eetxt1.Text, "#,##0.00;(#,##0.00)")
            eetxt2.Text = wks.Range("BI4").Offset(0, 0)
            Me.eetxt2.Text = Format(Me.eetxt2.Text, "#,##0.00;(#,##0.00)")
            eetxt3.Text = wks.Range("BJ4").Offset(0, 0)
            Me.eetxt3.Text = Format(Me.eetxt3.Text, "#,##0.00;(#,##0.00)")
            eetxt4.Text = wks.Range("BI5").Offset(0, 0)
            Me.eetxt4.Text = Format(Me.eetxt4.Text, "#,##0.00;(#,##0.00)")
            eetxt5.Text = wks.Range("BJ5").Offset(0, 0)
            Me.eetxt5.Text = Format(Me.eetxt5.Text, "#,##0.00;(#,##0.00)")
            eelbl.Caption = wks.Range("BI6").Offset(0, 0)
            Me.eelbl.Caption = Format(Me.eelbl.Caption, "#,##0.00;(#,##0.00)")
            eelbl1.Caption = wks.Range("BJ6").Offset(0, 0)
            Me.eelbl1.Caption = Format(Me.eelbl1.Caption, "#,##0.00;(#,##0.00)")
            eelbl2.Caption = wks.Range("BK3").Offset(0, 0)
            Me.eelbl2.Caption = Format(Me.eelbl2.Caption, "#,##0.00;(#,##0.00)")
            eelbl3.Caption = wks.Range("BK4").Offset(0, 0)
            Me.eelbl3.Caption = Format(Me.eelbl3.Caption, "#,##0.00;(#,##0.00)")
            eelbl4.Caption = wks.Range("BK5").Offset(0, 0)
            Me.eelbl4.Caption = Format(Me.eelbl4.Caption, "#,##0.00;(#,##0.00)")
            eelbl5.Caption = wks.Range("BK6").Offset(0, 0)
            Me.eelbl5.Caption = Format(Me.eelbl5.Caption, "#,##0.00;(#,##0.00)")
            eelbl6.Caption = wks.Range("BK7").Offset(0, 0)
            Me.eelbl6.Caption = Format(Me.eelbl6.Caption, "##0.00")
            
            
                If eetxt.Text <> "" And eetxt1.Text <> "" And eetxt2.Text <> "" And eetxt3.Text <> "" And eetxt4.Text <> "" And eetxt5.Text <> "" Then
                    CommandButton1.Enabled = True
                End If
    
    
    End Sub
    
    
    Private Sub attendace()
    
    
        Dim wks As Worksheet
        Set wks = Sheet9
            termlbl3.Caption = wks.Range("BL3").Offset(0, 0)
            Me.termlbl3.Caption = Format(Me.termlbl3.Caption, "##0.00")
            termlbl4.Caption = wks.Range("BM3").Offset(0, 0)
            Me.termlbl4.Caption = Format(Me.termlbl4.Caption, "##0.00")
            termlbl5.Caption = wks.Range("BN3").Offset(0, 0)
            Me.termlbl5.Caption = Format(Me.termlbl5.Caption, "##0.00")
            termlbl6.Caption = wks.Range("BM5").Offset(0, 0)
            Me.termlbl6.Caption = Format(Me.termlbl6.Caption, "##0.00")
            termlbl7.Caption = wks.Range("BM5").Offset(0, 0)
            Me.termlbl7.Caption = Format(Me.termlbl7.Caption, "##0.00")
            teamtxt.Text = wks.Range("CW3").Offset(0, 0)
            teamtxt1.Text = wks.Range("CW4").Offset(0, 0)
            teamtxt2.Text = wks.Range("CW5").Offset(0, 0)
            teamtxt3.Text = wks.Range("CX3").Offset(0, 0)
            teamtxt4.Text = wks.Range("CX4").Offset(0, 0)
            teamtxt5.Text = wks.Range("CX5").Offset(0, 0)
            teamlbl.Caption = wks.Range("CW6").Offset(0, 0)
            teamlbl1.Caption = wks.Range("CX6").Offset(0, 0)
            teamlbl2.Caption = wks.Range("CT3").Offset(0, 0)
            Me.teamlbl2.Caption = Format(Me.teamlbl2.Caption, "##0.00")
    
    
    End Sub
    
    
    Private Sub score()
        Dim wks As Worksheet
        Set wks = Sheet9
    
    
        If wks.Range("BO3").Offset(0, 0).Text = "Yes" Then
        apeyes.Value = True
        ElseIf wks.Range("BO3").Offset(0, 0).Text = "No" Then
        apeno.Value = True
        End If
        If wks.Range("BP3").Offset(0, 0).Text = "Yes" Then
        apeyes1.Value = True
        ElseIf wks.Range("BP3").Offset(0, 0).Text = "No" Then
        apeno1.Value = True
        End If
        If wks.Range("BQ3").Offset(0, 0).Text = "Yes" Then
        apeyes2.Value = True
        ElseIf wks.Range("BQ3").Offset(0, 0).Text = "No" Then
        apeno2.Value = True
        End If
        If wks.Range("BR3").Offset(0, 0).Text = "Yes" Then
        apeyes3.Value = True
        ElseIf wks.Range("BR3").Offset(0, 0).Text = "No" Then
        apeno3.Value = True
        End If
        If wks.Range("BS3").Offset(0, 0).Text = "Yes" Then
        apeyes4.Value = True
        ElseIf wks.Range("BS3").Offset(0, 0).Text = "No" Then
        apeno4.Value = True
        End If
        If wks.Range("BT3").Offset(0, 0).Text = "Yes" Then
        apeyes5.Value = True
        ElseIf wks.Range("BT3").Offset(0, 0).Text = "No" Then
        apeno5.Value = True
        End If
        If wks.Range("BU3").Offset(0, 0).Text = "Yes" Then
        apeyes6.Value = True
        ElseIf wks.Range("BU3").Offset(0, 0).Text = "No" Then
        apeno6.Value = True
        End If
        If wks.Range("BV3").Offset(0, 0).Text = "Yes" Then
        apeyes7.Value = True
        ElseIf wks.Range("BV3").Offset(0, 0).Text = "No" Then
        apeno7.Value = True
        End If
        If wks.Range("BW3").Offset(0, 0).Text = "Yes" Then
        apeyes8.Value = True
        ElseIf wks.Range("BW3").Offset(0, 0).Text = "No" Then
        apeno8.Value = True
        End If
        If wks.Range("BX3").Offset(0, 0).Text = "Yes" Then
        apeyes9.Value = True
        ElseIf wks.Range("BX3").Offset(0, 0).Text = "No" Then
        apeno9.Value = True
        End If
    
    
        If wks.Range("BY3").Offset(0, 0).Text = "Yes" Then
        ccyes.Value = True
        ElseIf wks.Range("BY3").Offset(0, 0).Text = "No" Then
        ccno.Value = True
        End If
        If wks.Range("BZ3").Offset(0, 0).Text = "Yes" Then
        ccyes1.Value = True
        ElseIf wks.Range("BZ3").Offset(0, 0).Text = "No" Then
        ccno1.Value = True
        End If
        If wks.Range("CA3").Offset(0, 0).Text = "Yes" Then
        ccyes2.Value = True
        ElseIf wks.Range("CA3").Offset(0, 0).Text = "No" Then
        ccno2.Value = True
        End If
        If wks.Range("CB3").Offset(0, 0).Text = "Yes" Then
        ccyes3.Value = True
        ElseIf wks.Range("CB3").Offset(0, 0).Text = "No" Then
        ccno3.Value = True
        End If
        If wks.Range("CC3").Offset(0, 0).Text = "Yes" Then
        ccyes4.Value = True
        ElseIf wks.Range("CC3").Offset(0, 0).Text = "No" Then
        ccno4.Value = True
        End If
        If wks.Range("CD3").Offset(0, 0).Text = "Yes" Then
        ccyes5.Value = True
        ElseIf wks.Range("CD3").Offset(0, 0).Text = "No" Then
        ccno5.Value = True
        End If
        If wks.Range("CE3").Offset(0, 0).Text = "Yes" Then
        ccyes6.Value = True
        ElseIf wks.Range("CE3").Offset(0, 0).Text = "No" Then
        ccno6.Value = True
        End If
        If wks.Range("CF3").Offset(0, 0).Text = "Yes" Then
        ccyes7.Value = True
        ElseIf wks.Range("CF3").Offset(0, 0).Text = "No" Then
        ccno7.Value = True
        End If
        If wks.Range("CG3").Offset(0, 0).Text = "Yes" Then
        ccyes8.Value = True
        ElseIf wks.Range("CG3").Offset(0, 0).Text = "No" Then
        ccno8.Value = True
        End If
        If wks.Range("CH3").Offset(0, 0).Text = "Yes" Then
        ccyes9.Value = True
        ElseIf wks.Range("CH3").Offset(0, 0).Text = "No" Then
        ccno9.Value = True
        End If
    
    
        If wks.Range("CI3").Offset(0, 0).Text = "Yes" Then
        aryes.Value = True
        ElseIf wks.Range("CI3").Offset(0, 0).Text = "No" Then
        arno.Value = True
        End If
        If wks.Range("CJ3").Offset(0, 0).Text = "Yes" Then
        aryes1.Value = True
        ElseIf wks.Range("CJ3").Offset(0, 0).Text = "No" Then
        arno1.Value = True
        End If
        If wks.Range("CK3").Offset(0, 0).Text = "Yes" Then
        aryes2.Value = True
        ElseIf wks.Range("CK3").Offset(0, 0).Text = "No" Then
        arno2.Value = True
        End If
        If wks.Range("CL3").Offset(0, 0).Text = "Yes" Then
        aryes3.Value = True
        ElseIf wks.Range("CL3").Offset(0, 0).Text = "No" Then
        arno3.Value = True
        End If
        If wks.Range("CM3").Offset(0, 0).Text = "Yes" Then
        aryes4.Value = True
        ElseIf wks.Range("CM3").Offset(0, 0).Text = "No" Then
        arno4.Value = True
        End If
        If wks.Range("CN3").Offset(0, 0).Text = "Yes" Then
        aryes5.Value = True
        ElseIf wks.Range("CN3").Offset(0, 0).Text = "No" Then
        arno5.Value = True
        End If
        If wks.Range("CO3").Offset(0, 0).Text = "Yes" Then
        aryes6.Value = True
        ElseIf wks.Range("CO3").Offset(0, 0).Text = "No" Then
        arno6.Value = True
        End If
        If wks.Range("CP3").Offset(0, 0).Text = "Yes" Then
        aryes7.Value = True
        ElseIf wks.Range("CP3").Offset(0, 0).Text = "No" Then
        arno7.Value = True
        End If
        If wks.Range("CQ3").Offset(0, 0).Text = "Yes" Then
        aryes8.Value = True
        ElseIf wks.Range("CQ3").Offset(0, 0).Text = "No" Then
        arno8.Value = True
        End If
        If wks.Range("CR3").Offset(0, 0).Text = "Yes" Then
        aryes9.Value = True
        ElseIf wks.Range("CR3").Offset(0, 0).Text = "No" Then
        arno9.Value = True
        End If
        TextBox2.Text = wks.Range("CS3").Offset(0, 0)
    
    
    
    
    
    
    End Sub
    
    
    Private Sub average()
    
    
        Dim wks As Worksheet
        Set wks = Sheet2
            atqlbl3.Caption = wks.Range("C2").Offset(0, 0)
            Me.atqlbl3.Caption = Format(Me.atqlbl3.Caption, "##0.00")
            atqlbl.Caption = daqlbl2.Caption
            atqlbl1.Caption = oblbl1.Caption
            atqlbl2.Caption = eclbl2.Caption
        
            enlbl3.Caption = wks.Range("D2").Offset(0, 0)
            Me.enlbl3.Caption = Format(Me.enlbl3.Caption, "##0.00")
            enlbl.Caption = lblTotal.Caption
            enlbl1.Caption = lblTotal1.Caption
            enlbl2.Caption = lblTotal2.Caption
        
            englbl1.Caption = wks.Range("E2").Offset(0, 0)
            Me.englbl1.Caption = Format(Me.englbl1.Caption, "##0.00")
            englbl.Caption = eelbl7.Caption
        
            atblbl2.Caption = wks.Range("F2").Offset(0, 0)
            Me.atblbl2.Caption = Format(Me.atblbl2.Caption, "##0.00")
            atblbl.Caption = termlbl7.Caption
            atblbl1.Caption = teamlbl2.Caption
        
        
    End Sub
    Private Sub UserForm_Initialize()
        
     '   pesatcb.Text = "Select"
        pesatcb.AddItem "Antony E.Clarin"
        pesatcb.AddItem "Lester Cris D. Collantes"
        pesatcb.AddItem "Elmer V.Pegarido"
        
        'pesatcb1.Text = "Select"
        pesatcb1.AddItem "April Rose C. Tejero"
        pesatcb1.AddItem "Aprilyn E. Soriano"
        pesatcb1.AddItem "Arberto B. Buot"
        pesatcb1.AddItem "Ben Cesar P. Pando"
        pesatcb1.AddItem "Bobby G. Tabugoca"
        pesatcb1.AddItem "Elleanor D. Dalapo"
        pesatcb1.AddItem "Elmer V. Pegarido"
        pesatcb1.AddItem "Elpidio Jr. C. Portal"
        pesatcb1.AddItem "Jessa Ervina B. Gerilla"
        pesatcb1.AddItem "Jesus A. Bordonada"
        pesatcb1.AddItem "Jose O. Lepiten Jr."
        pesatcb1.AddItem "Lailani N. Danlag"
        pesatcb1.AddItem "Ma.Daryl M. Descartin"
        pesatcb1.AddItem "Marvin B. Basa"
        pesatcb1.AddItem "Mary Grace M. Guyapa"
        pesatcb1.AddItem "Mork Ian O. Sarmiento"
        pesatcb1.AddItem "Reynaldo Jr. P. Infante"
        pesatcb1.AddItem "Roland Manuel M. Alado"
        pesatcb1.AddItem "Ronel S. Abasolo"
        
      '  pesatcb2.Text = "Select"
        pesatcb2.AddItem "April Rose C. Tejero"
        pesatcb2.AddItem "Aprilyn E. Soriano"
        pesatcb2.AddItem "Arberto B. Buot"
        pesatcb2.AddItem "Ben Cesar P. Pando"
        pesatcb2.AddItem "Bobby G. Tabugoca"
        pesatcb2.AddItem "Elleanor D. Dalapo"
        pesatcb2.AddItem "Elmer V. Pegarido"
        pesatcb2.AddItem "Elpidio Jr. C. Portal"
        pesatcb2.AddItem "Jessa Ervina B. Gerilla"
        pesatcb2.AddItem "Jesus A. Bordonada"
        pesatcb2.AddItem "Jose O. Lepiten Jr."
        pesatcb2.AddItem "Lailani N. Danlag"
        pesatcb2.AddItem "Ma.Daryl M. Descartin"
        pesatcb2.AddItem "Marvin B. Basa"
        pesatcb2.AddItem "Mary Grace M. Guyapa"
        pesatcb2.AddItem "Mork Ian O. Sarmiento"
        pesatcb2.AddItem "Reynaldo Jr. P. Infante"
        pesatcb2.AddItem "Roland Manuel M. Alado"
        pesatcb2.AddItem "Ronel S. Abasolo"
        
         
        
        pesatcb.Style = fmStyleDropDownCombo
        pesatcb1.Style = fmStyleDropDownCombo
        pesatcb2.Style = fmStyleDropDownCombo
        
        obcombo.AddItem "Regular"
        obcombo.AddItem "Hybrid"
    
    
        obcombo.Style = fmStyleDropDownList
        
        awpEnter.Enabled = False
        finallbl.Caption = "0.00%"
        
        Call datas
        Call pesat
        Call engagementeconomics
        Call attendace
        Call score
        Call average
        
            
        Me.MultiPage7.Value = 0
        Me.btn01.BackColor = RGB(255, 215, 0)
        Me.btn1.BackColor = RGB(224, 224, 224)
        Me.btn2.BackColor = RGB(160, 160, 160)
        Me.btn3.BackColor = RGB(160, 160, 160)
        Me.btn4.BackColor = RGB(160, 160, 160)
            Me.MultiPage3.Value = 0
        Me.btn5.BackColor = RGB(224, 224, 224)
        Me.btn6.BackColor = RGB(160, 160, 160)
        Me.btn7.BackColor = RGB(160, 160, 160)
            Me.MultiPage2.Value = 0
        Me.btn8.BackColor = RGB(224, 224, 224)
        Me.btn9.BackColor = RGB(160, 160, 160)
        Me.btn10.BackColor = RGB(160, 160, 160)
            Me.MultiPage5.Value = 0
        Me.btn11.BackColor = RGB(224, 224, 224)
        Me.btn12.BackColor = RGB(160, 160, 160)
            Me.MultiPage6.Value = 0
        Me.btn13.BackColor = RGB(224, 224, 224)
        Me.btn14.BackColor = RGB(160, 160, 160)
        Me.btn15.BackColor = RGB(160, 160, 160)
        Me.btn16.BackColor = RGB(160, 160, 160)
        
        Call ChangeChart("GraphChart")
    
    
        Call colors
       
    End Sub
    
    
    'Private Sub UserForm_Terminate()
    
    
    'ThisWorkbook.Save
    'ActiveWorkbook.Close SaveChanges:=False
    
    
    'End Sub

  8. #8
    Board Regular
    Join Date
    Sep 2015
    Posts
    563
    Post Thanks / Like
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)

    Default Re: microsoft excel has stopped working.

    I had gone through your link and requested you to upload. Is your code written in Userform or a Module. This was the reason to upload the file.
    Let us know which version of Excel you are using

    Maybe this could help you https://docs.microsoft.com › en-us ›...el-not-working
    Last edited by NimishK; Sep 17th, 2019 at 12:00 AM.

  9. #9
    Board Regular
    Join Date
    Sep 2019
    Posts
    53
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: microsoft excel has stopped working.

    Quote Originally Posted by NimishK View Post
    I had gone through your link and requested you to upload. Is your code written in Userform or a Module. This was the reason to upload the file.
    Let us know which version of Excel you are using

    Maybe this could help you https://docs.microsoft.com en-us ...el-not-working
    i don't know how to upload a file man .. I'm just a newbie here :/
    and btw my code was written in userform

  10. #10
    Board Regular
    Join Date
    Sep 2015
    Posts
    563
    Post Thanks / Like
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)

    Default Re: microsoft excel has stopped working.

    Ok
    this link will help you to upload the file. go through its steps and upload it
    https://www.dropbox.com

    You need HERE to share the link of your uploaded file

    though your code was written in userform there may be Objects like combo textbox etc. on your UF.

    your file should have an .XLSM extension
    Last edited by NimishK; Sep 17th, 2019 at 12:12 AM.

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •