Run-Time error '-2147417848 (80010108)': Automation error The object invoked has disconnected from

SeangSTM · Apr 28, 2006

I know, I know...people have written about this before. I've read
every single post on it and nothing has solved my problem. I'm new to
programming with Excel, and I have a simple, simple program fora
userform (I've created many before) that enters the users information
into a multipage spreadsheet...but everytime i hit OK, I get this
error. Here is the code (it's rather long)

The notes were written by me for my own information - not as a
definitive explanation of how it works. Sorry about the size, but it's
a massive speadsheet that's being filled.

Private Sub App_WorkbookActivate()
ManagementReportEntryForm.Show
End Sub

Private Sub cmdOK_Click()
'when you click the OK button, the following codes are run -
'this just enters the values that the users enter into the appropriate
fields

'below are call functions for sub procedures (listed above)

CollatingSheetFillIn

InputDateSheetFillInMonth

InputCostAlloFillInMonth

InputCostAlloFillIn

CompletedRequestedFillIn

OnHandFillIn

AOCFiguresFillIn

TrackingAssignmentsFiguresFillIn

ChartFiguresFillIn

BillableHoursFillIn

AssignedOverdueFillIn

MonthEntryFillIn

Unload ManagementReportEntryForm

End Sub
Private Sub cmdAdjustmentsLoad_Click()

Sheets("INPUT Data Sheet").Select

If cboMonth = "January" Then
Range("B6").Select
End If

If cboMonth = "February" Then
Range("C6").Select
End If

If cboMonth = "March" Then
Range("D6").Select
End If

If cboMonth = "April" Then
Range("E6").Select
End If

If cboMonth = "May" Then
Range("F6").Select
End If

If cboMonth = "June" Then
Range("G6").Select
End If

If cboMonth = "July" Then
Range("H6").Select
End If

If cboMonth = "August" Then
Range("I6").Select
End If

If cboMonth = "September" Then
Range("J6").Select
End If

If cboMonth = "October" Then
Range("K6").Select
End If

If cboMonth = "November" Then
Range("L6").Select
End If

If cboMonth = "December" Then
Range("M6").Select
End If

***I've removed the names below for privacy, but they are based on the
picklist that appears in teh userform***

If cboRepNames = "" Then
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(22).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(44).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(66).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(88).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(160).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(132).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(154).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(176).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(198).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(220).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(242).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(264).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(286).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(308).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(330).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(352).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(374).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(396).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(418).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(440).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(462).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(484).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(506).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(528).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(550).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(572).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(594).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(616).Select
AdjustmentsEntry
End If

If cboRepNames = "" Then
ActiveCell.Offset(638).Select
AdjustmentsEntry
End If

End Sub

Private Sub AdjustmentsEntry()
'this program enters the adjustment information into the billable hours
sheet
'and is repeated for every rep

ActiveCell.Value = txtAdjustmentsCommercialMidMarket.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsCorporate.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsFacilities.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsProgrammes.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsConstruction.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsGlobalEnergy.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsSurety.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsSpecialties.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsIllness.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsVacation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsLegalHoliday.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsTT.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsTG.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsQM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsCanBU.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsNA.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAdjustmentsProj.Value
End Sub

Private Sub ManagementReportEntryForm_Activate()
'Completed Reports Page

'this command automatically clears all fields
'in the userform before the user has entered
'anything

txtAlex.Value = ""
txtAndreanne.Value = ""
txtBill.Value = ""
txtBob.Value = ""
txtChris.Value = ""
txtClive.Value = ""
txtDave.Value = ""
txtDon.Value = ""
txtJacques.Value = ""
txtJared.Value = ""
txtJean.Value = ""
txtJim.Value = ""
txtJulie.Value = ""
txtKevin.Value = ""
txtLen.Value = ""
txtLino.Value = ""
txtMatt.Value = ""
txtMikeC.Value = ""
txtMikeM.Value = ""
txtMikeR.Value = ""
txtPascal.Value = ""
txtRaed.Value = ""
txtRene.Value = ""
txtRob.Value = ""
txtScott.Value = ""
txtSteve.Value = ""
txtStewart.Value = ""
txtSylvia.Value = ""
txtTom.Value = ""
txtTony.Value = ""
txtWael.Value = ""

txtNonRepInfo1.Value = ""
txtNonRepInfo2.Value = ""
txtNonRepInfo3.Value = ""
txtNonRepInfo4.Value = ""
txtNonRepInfo5.Value = ""
txtNonRepInfo6.Value = ""
txtNonRepInfo7.Value = ""
txtNonRepInfo8.Value = ""
txtNonRepInfo9.Value = ""
txtNonRepInfo10.Value = ""
txtNonRepInfo11.Value = ""
txtNonRepInfo12.Value = ""
txtNonRepInfo13.Value = ""
txtNonRepInfo14.Value = ""
txtNonRepInfo15.Value = ""

txtNonRep1.Value = ""
txtNonRep2.Value = ""
txtNonRep3.Value = ""
txtNonRep4.Value = ""
txtNonRep5.Value = ""
txtNonRep6.Value = ""
txtNonRep7.Value = ""
txtNonRep8.Value = ""
txtNonRep9.Value = ""
txtNonRep10.Value = ""
txtNonRep16.Value = ""
txtNonRep12.Value = ""
txtNonRep13.Value = ""
txtNonRep14.Value = ""
txtNonRep15.Value = ""

'Assigned/Overdue Reports Page
txtAlex2a.Value = ""
txtAndreanne2a.Value = ""
txtBill2a.Value = ""
txtBob2a.Value = ""
txtChris2a.Value = ""
txtClive2a.Value = ""
txtDave2a.Value = ""
txtDon2a.Value = ""
txtJacques2a.Value = ""
txtJared2a.Value = ""
txtJean2a.Value = ""
txtJim2a.Value = ""
txtJulie2a.Value = ""
txtKevin2a.Value = ""
txtLen2a.Value = ""
txtLino2a.Value = ""
txtMatt2a.Value = ""
txtMikeC2a.Value = ""
txtMikeM2a.Value = ""
txtMikeR2a.Value = ""
txtPascal2a.Value = ""
txtRaed2a.Value = ""
txtRene2a.Value = ""
txtRob2a.Value = ""
txtScott2a.Value = ""
txtSteve2a.Value = ""
txtStewart2a.Value = ""
txtSylvia2a.Value = ""
txtTom2a.Value = ""
txtTony2a.Value = ""
txtWael2a.Value = ""

txtAlex2b.Value = ""
txtAndreanne2b.Value = ""
txtBill2b.Value = ""
txtBob2b.Value = ""
txtChris2b.Value = ""
txtClive2b.Value = ""
txtDave2b.Value = ""
txtDon2b.Value = ""
txtJacques2b.Value = ""
txtJared2b.Value = ""
txtJean2b.Value = ""
txtJim2b.Value = ""
txtJulie2b.Value = ""
txtKevin2b.Value = ""
txtLen2b.Value = ""
txtLino2b.Value = ""
txtMatt2b.Value = ""
txtMikeC2b.Value = ""
txtMikeM2b.Value = ""
txtMikeR2b.Value = ""
txtPascal2b.Value = ""
txtRaed2b.Value = ""
txtRene2b.Value = ""
txtRob2b.Value = ""
txtScott2b.Value = ""
txtSteve2b.Value = ""
txtStewart2b.Value = ""
txtSylvia2b.Value = ""
txtTom2b.Value = ""
txtTony2b.Value = ""
txtWael2b.Value = ""

txtNonRepInfo1a.Value = ""
txtNonRepInfo2a.Value = ""
txtNonRepInfo3a.Value = ""
txtNonRepInfo4a.Value = ""
txtNonRepInfo5a.Value = ""
txtNonRepInfo6a.Value = ""
txtNonRepInfo7a.Value = ""
txtNonRepInfo8a.Value = ""
txtNonRepInfo9a.Value = ""
txtNonRepInfo10a.Value = ""
txtNonRepInfo11a.Value = ""
txtNonRepInfo12a.Value = ""
txtNonRepInfo13a.Value = ""
txtNonRepInfo14a.Value = ""
txtNonRepInfo15a.Value = ""

txtNonRepInfo1b.Value = ""
txtNonRepInfo2b.Value = ""
txtNonRepInfo3b.Value = ""
txtNonRepInfo4b.Value = ""
txtNonRepInfo5b.Value = ""
txtNonRepInfo6b.Value = ""
txtNonRepInfo7b.Value = ""
txtNonRepInfo8b.Value = ""
txtNonRepInfo9b.Value = ""
txtNonRepInfo10b.Value = ""
txtNonRepInfo11b.Value = ""
txtNonRepInfo12b.Value = ""
txtNonRepInfo13b.Value = ""
txtNonRepInfo14b.Value = ""
txtNonRepInfo15b.Value = ""

txtNonRep1a.Value = ""
txtNonRep2a.Value = ""
txtNonRep3a.Value = ""
txtNonRep4a.Value = ""
txtNonRep5a.Value = ""
txtNonRep6a.Value = ""
txtNonRep7a.Value = ""
txtNonRep8a.Value = ""
txtNonRep9a.Value = ""
txtNonRep10a.Value = ""
txtNonRep16a.Value = ""
txtNonRep12a.Value = ""
txtNonRep13a.Value = ""
txtNonRep14a.Value = ""
txtNonRep15a.Value = ""

txtCommercialMidMarketTime.Value = ""
txtCommercialMidMarketExpenses.Value = ""
txtConstructionTime.Value = ""
txtConstructionExpenses.Value = ""
txtCorporateTime.Value = ""
txtCorporateExpenses.Value = ""
txtClaimsTime.Value = ""
txtClaimsExpenses.Value = ""
txtGlobalEnergyTime.Value = ""
txtGlobalEnergyExpenses.Value = ""
txtChargeToReceivedUnitTime.Value = ""
txtChargeToReceivedUnitExpenses.Value = ""
txtProgrammesTime.Value = ""
txtProgrammesExpenses.Value = ""
txtSuretyTime.Value = ""
txtSuretyExpenses.Value = ""
txtSpecialtiesTime.Value = ""
txtSpecialtiesExpenses.Value = ""

txtCompletedQuote.Value = ""
txtAssignedQuote.Value = ""
txtUnassignedQuote.Value = ""
txtInspectedQuote.Value = ""

txtCompletedInitial.Value = ""
txtAssignedInitial.Value = ""
txtUnassignedInitial.Value = ""
txtInspectedInitial.Value = ""

txtCompletedReinsp.Value = ""
txtAssignedReinsp.Value = ""
txtUnassignedReinsp.Value = ""
txtInspectedReinsp.Value = ""

txtCompletedBM.Value = ""
txtAssignedBM.Value = ""
txtUnassignedBM.Value = ""
txtInspectedBM.Value = ""

txtCompletedDesk.Value = ""
txtAssignedDesk.Value = ""
txtUnassignedDesk.Value = ""
txtInspectedDesk.Value = ""

txtCompletedClaims.Value = ""
txtAssignedClaims.Value = ""
txtUnassignedClaims.Value = ""
txtInspectedClaims.Value = ""

txtCompletedAccount.Value = ""
txtAssignedAccount.Value = ""
txtUnassignedAccount.Value = ""
txtInspectedAccount.Value = ""

txtCompletedRecommendation.Value = ""
txtAssignedRecommendation.Value = ""
txtUnassignedRecommendation.Value = ""
txtInspectedRecommendation.Value = ""

txtCompletedCustomer.Value = ""
txtAssignedCustomer.Value = ""
txtUnassignedCustomer.Value = ""
txtInspectedCustomer.Value = ""

txtCompletedProject.Value = ""
txtAssignedProject.Value = ""
txtUnassignedProject.Value = ""
txtInspectedProject.Value = ""

txtAdjustmentsCommercialMidMarket.Value = ""
txtAdjustmentsCorporate.Value = ""
txtAdjustmentsClaims.Value = ""
txtAdjustmentsFacilities.Value = ""
txtAdjustmentsProgrammes.Value = ""
txtAdjustmentsConstruction.Value = ""
txtAdjustmentsGlobalEnergy.Value = ""
txtAdjustmentsSurety.Value = ""
txtAdjustmentsSpecialties.Value = ""
txtAdjustmentsIllness.Value = ""
txtAdjustmentsVacation.Value = ""
txtAdjustmentsLegalHoliday.Value = ""
txtAdjustmentsTT.Value = ""
txtAdjustmentsTG.Value = ""
txtAdjustmentsQM.Value = ""
txtAdjustmentsCanBU.Value = ""
txtAdjustmentsNA.Value = ""
txtAdjustmentsProj.Value = ""
'marks the end of the 'clear fields' command

'initializes the one dropdown menu
cboRepNames.DropDown

'cell to start off in
txtAlex.SetFocus

End Sub
Private Sub CollatingSheetFillIn()

Sheets("Collating Sheet").Select

'Completed Reports Info FILL-IN
'completed
Range("A3").Select
ActiveCell.Value = txtAlex.Value
Range("A4").Select
ActiveCell.Value = txtAndreanne.Value
Range("A5").Select
ActiveCell.Value = txtBill.Value
Range("A6").Select
ActiveCell.Value = txtBob.Value
Range("A7").Select
ActiveCell.Value = txtChris.Value
Range("A8").Select
ActiveCell.Value = txtClive.Value
Range("A9").Select
ActiveCell.Value = txtDave.Value
Range("A10").Select
ActiveCell.Value = txtDon.Value
Range("A16").Select
ActiveCell.Value = txtJacques.Value
Range("A12").Select
ActiveCell.Value = txtJared.Value
Range("A13").Select
ActiveCell.Value = txtJean.Value
Range("A14").Select
ActiveCell.Value = txtJim.Value
Range("A15").Select
ActiveCell.Value = txtJulie.Value
Range("A16").Select
ActiveCell.Value = txtKevin.Value
Range("A17").Select
ActiveCell.Value = txtLen.Value
Range("A18").Select
ActiveCell.Value = txtLino.Value
Range("A19").Select
ActiveCell.Value = txtMatt.Value
Range("A20").Select
ActiveCell.Value = txtMikeC.Value
Range("A21").Select
ActiveCell.Value = txtMikeM.Value
Range("A22").Select
ActiveCell.Value = txtMikeR.Value
Range("A23").Select
ActiveCell.Value = txtPascal.Value
Range("A24").Select
ActiveCell.Value = txtRaed.Value
Range("A25").Select
ActiveCell.Value = txtRene.Value
Range("A26").Select
ActiveCell.Value = txtRob.Value
Range("A27").Select
ActiveCell.Value = txtScott.Value
Range("A28").Select
ActiveCell.Value = txtSteve.Value
Range("A29").Select
ActiveCell.Value = txtStewart.Value
Range("A30").Select
ActiveCell.Value = txtSylvia.Value
Range("A31").Select
ActiveCell.Value = txtTom.Value
Range("A32").Select
ActiveCell.Value = txtTony.Value
Range("A33").Select
ActiveCell.Value = txtWael.Value

'completed
Range("A40").Select
ActiveCell.Value = txtNonRepInfo1.Value
Range("A41").Select
ActiveCell.Value = txtNonRepInfo2.Value
Range("A42").Select
ActiveCell.Value = txtNonRepInfo3.Value
Range("A43").Select
ActiveCell.Value = txtNonRepInfo4.Value
Range("A44").Select
ActiveCell.Value = txtNonRepInfo5.Value
Range("A45").Select
ActiveCell.Value = txtNonRepInfo6.Value
Range("A46").Select
ActiveCell.Value = txtNonRepInfo7.Value
Range("A47").Select
ActiveCell.Value = txtNonRepInfo8.Value
Range("A48").Select
ActiveCell.Value = txtNonRepInfo9.Value
Range("A49").Select
ActiveCell.Value = txtNonRepInfo10.Value
Range("A50").Select
ActiveCell.Value = txtNonRepInfo11.Value
Range("A51").Select
ActiveCell.Value = txtNonRepInfo12.Value
Range("A52").Select
ActiveCell.Value = txtNonRepInfo13.Value
Range("A53").Select
ActiveCell.Value = txtNonRepInfo14.Value
Range("A54").Select
ActiveCell.Value = txtNonRepInfo15.Value

'Assigned/Overdue Reports Info FILL-IN
'assigned
Range("B3").Select
ActiveCell.Value = txtAlex2a.Value
Range("B4").Select
ActiveCell.Value = txtAndreanne2a.Value
Range("B5").Select
ActiveCell.Value = txtBill2a.Value
Range("B6").Select
ActiveCell.Value = txtBob2a.Value
Range("B7").Select
ActiveCell.Value = txtChris2a.Value
Range("B8").Select
ActiveCell.Value = txtClive2a.Value
Range("B9").Select
ActiveCell.Value = txtDave2a.Value
Range("B10").Select
ActiveCell.Value = txtDon2a.Value
Range("B16").Select
ActiveCell.Value = txtJacques2a.Value
Range("B12").Select
ActiveCell.Value = txtJared2a.Value
Range("B13").Select
ActiveCell.Value = txtJean2a.Value
Range("B14").Select
ActiveCell.Value = txtJim2a.Value
Range("B15").Select
ActiveCell.Value = txtJulie2a.Value
Range("B16").Select
ActiveCell.Value = txtKevin2a.Value
Range("B17").Select
ActiveCell.Value = txtLen2a.Value
Range("B18").Select
ActiveCell.Value = txtLino2a.Value
Range("B19").Select
ActiveCell.Value = txtMatt2a.Value
Range("B20").Select
ActiveCell.Value = txtMikeC2a.Value
Range("B21").Select
ActiveCell.Value = txtMikeM2a.Value
Range("B22").Select
ActiveCell.Value = txtMikeR2a.Value
Range("B23").Select
ActiveCell.Value = txtPascal2a.Value
Range("B24").Select
ActiveCell.Value = txtRaed2a.Value
Range("B25").Select
ActiveCell.Value = txtRene2a.Value
Range("B26").Select
ActiveCell.Value = txtRob2a.Value
Range("B27").Select
ActiveCell.Value = txtScott2a.Value
Range("B28").Select
ActiveCell.Value = txtSteve2a.Value
Range("B29").Select
ActiveCell.Value = txtStewart2a.Value
Range("B30").Select
ActiveCell.Value = txtSylvia2a.Value
Range("B31").Select
ActiveCell.Value = txtTom2a.Value
Range("B32").Select
ActiveCell.Value = txtTony2a.Value
Range("B33").Select
ActiveCell.Value = txtWael2a.Value

'overdue
Range("C3").Select
ActiveCell.Value = txtAlex2b.Value
Range("C4").Select
ActiveCell.Value = txtAndreanne2b.Value
Range("C5").Select
ActiveCell.Value = txtBill2b.Value
Range("C6").Select
ActiveCell.Value = txtBob2b.Value
Range("C7").Select
ActiveCell.Value = txtChris2b.Value
Range("C8").Select
ActiveCell.Value = txtClive2b.Value
Range("C9").Select
ActiveCell.Value = txtDave2b.Value
Range("C10").Select
ActiveCell.Value = txtDon2b.Value
Range("C16").Select
ActiveCell.Value = txtJacques2b.Value
Range("C12").Select
ActiveCell.Value = txtJared2b.Value
Range("C13").Select
ActiveCell.Value = txtJean2b.Value
Range("C14").Select
ActiveCell.Value = txtJim2b.Value
Range("C15").Select
ActiveCell.Value = txtJulie2b.Value
Range("C16").Select
ActiveCell.Value = txtKevin2b.Value
Range("C17").Select
ActiveCell.Value = txtLen2b.Value
Range("C18").Select
ActiveCell.Value = txtLino2b.Value
Range("C19").Select
ActiveCell.Value = txtMatt2b.Value
Range("C20").Select
ActiveCell.Value = txtMikeC2b.Value
Range("C21").Select
ActiveCell.Value = txtMikeM2b.Value
Range("C22").Select
ActiveCell.Value = txtMikeR2b.Value
Range("C23").Select
ActiveCell.Value = txtPascal2b.Value
Range("C24").Select
ActiveCell.Value = txtRaed2b.Value
Range("C25").Select
ActiveCell.Value = txtRene2b.Value
Range("C26").Select
ActiveCell.Value = txtRob2b.Value
Range("C27").Select
ActiveCell.Value = txtScott2b.Value
Range("C28").Select
ActiveCell.Value = txtSteve2b.Value
Range("C29").Select
ActiveCell.Value = txtStewart2b.Value
Range("C30").Select
ActiveCell.Value = txtSylvia2b.Value
Range("C31").Select
ActiveCell.Value = txtTom2b.Value
Range("C32").Select
ActiveCell.Value = txtTony2b.Value
Range("C33").Select
ActiveCell.Value = txtWael2b.Value

'assigned
Range("B40").Select
ActiveCell.Value = txtNonRepInfo1a.Value
Range("B41").Select
ActiveCell.Value = txtNonRepInfo2a.Value
Range("B42").Select
ActiveCell.Value = txtNonRepInfo3a.Value
Range("B43").Select
ActiveCell.Value = txtNonRepInfo4a.Value
Range("B44").Select
ActiveCell.Value = txtNonRepInfo5a.Value
Range("B45").Select
ActiveCell.Value = txtNonRepInfo6a.Value
Range("B46").Select
ActiveCell.Value = txtNonRepInfo7a.Value
Range("B47").Select
ActiveCell.Value = txtNonRepInfo8a.Value
Range("B48").Select
ActiveCell.Value = txtNonRepInfo9a.Value
Range("B49").Select
ActiveCell.Value = txtNonRepInfo10a.Value
Range("B50").Select
ActiveCell.Value = txtNonRepInfo11a.Value
Range("B51").Select
ActiveCell.Value = txtNonRepInfo12a.Value
Range("B52").Select
ActiveCell.Value = txtNonRepInfo13a.Value
Range("B53").Select
ActiveCell.Value = txtNonRepInfo14a.Value
Range("B54").Select
ActiveCell.Value = txtNonRepInfo15a.Value

'overdue
Range("C40").Select
ActiveCell.Value = txtNonRepInfo1b.Value
Range("C41").Select
ActiveCell.Value = txtNonRepInfo2b.Value
Range("C42").Select
ActiveCell.Value = txtNonRepInfo3b.Value
Range("C43").Select
ActiveCell.Value = txtNonRepInfo4b.Value
Range("C44").Select
ActiveCell.Value = txtNonRepInfo5b.Value
Range("C45").Select
ActiveCell.Value = txtNonRepInfo6b.Value
Range("C46").Select
ActiveCell.Value = txtNonRepInfo7b.Value
Range("C47").Select
ActiveCell.Value = txtNonRepInfo8b.Value
Range("C48").Select
ActiveCell.Value = txtNonRepInfo9b.Value
Range("C49").Select
ActiveCell.Value = txtNonRepInfo10b.Value
Range("C50").Select
ActiveCell.Value = txtNonRepInfo11b.Value
Range("C51").Select
ActiveCell.Value = txtNonRepInfo12b.Value
Range("C52").Select
ActiveCell.Value = txtNonRepInfo13b.Value
Range("C53").Select
ActiveCell.Value = txtNonRepInfo14b.Value
Range("C54").Select
ActiveCell.Value = txtNonRepInfo15b.Value
End Sub
Private Sub AssignedOverdueFillIn()

Sheets("Assigned_Overdue by Rep").Select

'this copies the info in the present D & E columns on the page
'into the B & C columns, it also deletes the contents of the remaining
'cells

Range("D3:E57").Select
Selection.Copy
Range("B3:C57").Select
Range("C57").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D3:e57").Select
Selection.ClearContents

Range("d2:e2").Select
Selection.Copy
Range("b2:c2").Select
ActiveSheet.Paste
Range("d2:e2").Select
Application.CutCopyMode = False
Selection.ClearContents

'fills in the Inspected, Unassigned and Abeyanced
'fields on the ASSIGNED_OVERDUE BY REP sheet
Range("D55").Select
ActiveCell.Value = txtInspectedReports
Range("D56").Select
ActiveCell.Value = txtUnassignedReports
Range("D57").Select
ActiveCell.Value = txtAbeyanced3

'fills in the Assigned/Overdue fields for each Rep
'on the ASSIGNED_OVERDUE BY REP sheet

'assigned
Range("D3").Select
ActiveCell.Value = txtAlex2a.Value
Range("D4").Select
ActiveCell.Value = txtAndreanne2a.Value
Range("D5").Select
ActiveCell.Value = txtBill2a.Value
Range("D6").Select
ActiveCell.Value = txtBob2a.Value
Range("D7").Select
ActiveCell.Value = txtChris2a.Value
Range("D8").Select
ActiveCell.Value = txtClive2a.Value
Range("D9").Select
ActiveCell.Value = txtDave2a.Value
Range("D10").Select
ActiveCell.Value = txtDon2a.Value
Range("D16").Select
ActiveCell.Value = txtJacques2a.Value
Range("D12").Select
ActiveCell.Value = txtJared2a.Value
Range("D13").Select
ActiveCell.Value = txtJean2a.Value
Range("D14").Select
ActiveCell.Value = txtJim2a.Value
Range("D15").Select
ActiveCell.Value = txtJulie2a.Value
Range("D16").Select
ActiveCell.Value = txtKevin2a.Value
Range("D17").Select
ActiveCell.Value = txtLen2a.Value
Range("D18").Select
ActiveCell.Value = txtLino2a.Value
Range("D19").Select
ActiveCell.Value = txtMatt2a.Value
Range("D20").Select
ActiveCell.Value = txtMikeC2a.Value
Range("D21").Select
ActiveCell.Value = txtMikeM2a.Value
Range("D22").Select
ActiveCell.Value = txtMikeR2a.Value
Range("D23").Select
ActiveCell.Value = txtPascal2a.Value
Range("D24").Select
ActiveCell.Value = txtRaed2a.Value
Range("D25").Select
ActiveCell.Value = txtRene2a.Value
Range("D26").Select
ActiveCell.Value = txtRob2a.Value
Range("D27").Select
ActiveCell.Value = txtScott2a.Value
Range("D28").Select
ActiveCell.Value = txtSteve2a.Value
Range("D29").Select
ActiveCell.Value = txtStewart2a.Value
Range("D30").Select
ActiveCell.Value = txtSylvia2a.Value
Range("D31").Select
ActiveCell.Value = txtTom2a.Value
Range("D32").Select
ActiveCell.Value = txtTony2a.Value
Range("D33").Select
ActiveCell.Value = txtWael2a.Value

'overdue
Range("E3").Select
ActiveCell.Value = txtAlex2b.Value
Range("E4").Select
ActiveCell.Value = txtAndreanne2b.Value
Range("E5").Select
ActiveCell.Value = txtBill2b.Value
Range("E6").Select
ActiveCell.Value = txtBob2b.Value
Range("E7").Select
ActiveCell.Value = txtChris2b.Value
Range("E8").Select
ActiveCell.Value = txtClive2b.Value
Range("E9").Select
ActiveCell.Value = txtDave2b.Value
Range("E10").Select
ActiveCell.Value = txtDon2b.Value
Range("E16").Select
ActiveCell.Value = txtJacques2b.Value
Range("E12").Select
ActiveCell.Value = txtJared2b.Value
Range("E13").Select
ActiveCell.Value = txtJean2b.Value
Range("E14").Select
ActiveCell.Value = txtJim2b.Value
Range("E15").Select
ActiveCell.Value = txtJulie2b.Value
Range("E16").Select
ActiveCell.Value = txtKevin2b.Value
Range("E17").Select
ActiveCell.Value = txtLen2b.Value
Range("E18").Select
ActiveCell.Value = txtLino2b.Value
Range("E19").Select
ActiveCell.Value = txtMatt2b.Value
Range("E20").Select
ActiveCell.Value = txtMikeC2b.Value
Range("E21").Select
ActiveCell.Value = txtMikeM2b.Value
Range("E22").Select
ActiveCell.Value = txtMikeR2b.Value
Range("E23").Select
ActiveCell.Value = txtPascal2b.Value
Range("E24").Select
ActiveCell.Value = txtRaed2b.Value
Range("E25").Select
ActiveCell.Value = txtRene2b.Value
Range("E26").Select
ActiveCell.Value = txtRob2b.Value
Range("E27").Select
ActiveCell.Value = txtScott2b.Value
Range("E28").Select
ActiveCell.Value = txtSteve2b.Value
Range("E29").Select
ActiveCell.Value = txtStewart2b.Value
Range("E30").Select
ActiveCell.Value = txtSylvia2b.Value
Range("E31").Select
ActiveCell.Value = txtTom2b.Value
Range("E32").Select
ActiveCell.Value = txtTony2b.Value
Range("E33").Select
ActiveCell.Value = txtWael2b.Value

'assigned
Range("D34").Select
ActiveCell.Value = txtNonRepInfo1a.Value
Range("D35").Select
ActiveCell.Value = txtNonRepInfo2a.Value
Range("D36").Select
ActiveCell.Value = txtNonRepInfo3a.Value
Range("D37").Select
ActiveCell.Value = txtNonRepInfo4a.Value
Range("D38").Select
ActiveCell.Value = txtNonRepInfo5a.Value
Range("D39").Select
ActiveCell.Value = txtNonRepInfo6a.Value
Range("D40").Select
ActiveCell.Value = txtNonRepInfo7a.Value
Range("D41").Select
ActiveCell.Value = txtNonRepInfo8a.Value
Range("D42").Select
ActiveCell.Value = txtNonRepInfo9a.Value
Range("D43").Select
ActiveCell.Value = txtNonRepInfo10a.Value
Range("D44").Select
ActiveCell.Value = txtNonRepInfo11a.Value
Range("D45").Select
ActiveCell.Value = txtNonRepInfo12a.Value
Range("D46").Select
ActiveCell.Value = txtNonRepInfo13a.Value
Range("D47").Select
ActiveCell.Value = txtNonRepInfo14a.Value
Range("D48").Select
ActiveCell.Value = txtNonRepInfo15a.Value

'overdue
Range("E34").Select
ActiveCell.Value = txtNonRepInfo1a.Value
Range("E35").Select
ActiveCell.Value = txtNonRepInfo2a.Value
Range("E36").Select
ActiveCell.Value = txtNonRepInfo3a.Value
Range("E37").Select
ActiveCell.Value = txtNonRepInfo4a.Value
Range("E38").Select
ActiveCell.Value = txtNonRepInfo5a.Value
Range("E39").Select
ActiveCell.Value = txtNonRepInfo6a.Value
Range("E40").Select
ActiveCell.Value = txtNonRepInfo7a.Value
Range("E41").Select
ActiveCell.Value = txtNonRepInfo8a.Value
Range("E42").Select
ActiveCell.Value = txtNonRepInfo9a.Value
Range("E43").Select
ActiveCell.Value = txtNonRepInfo10a.Value
Range("E44").Select
ActiveCell.Value = txtNonRepInfo11a.Value
Range("E45").Select
ActiveCell.Value = txtNonRepInfo12a.Value
Range("E46").Select
ActiveCell.Value = txtNonRepInfo13a.Value
Range("E47").Select
ActiveCell.Value = txtNonRepInfo14a.Value
Range("E48").Select
ActiveCell.Value = txtNonRepInfo15a.Value

End Sub

Private Sub InputDateSheetFillInMonth()

Sheets("INPUT Data Sheet").Select

'the following is the program for the cboMonth field
'whichever month is written in the field, a corresponding
'number enters into a relevant field in the INPUT Data Sheet
If cboMonth = "January" Then
Range("O1").Select
ActiveCell.Value = "1"
End If

If cboMonth = "February" Then
Range("O1").Select
ActiveCell.Value = "2"
End If

If cboMonth = "March" Then
Range("O1").Select
ActiveCell.Value = "3"
End If

If cboMonth = "April" Then
Range("O1").Select
ActiveCell.Value = "4"
End If

If cboMonth = "May" Then
Range("O1").Select
ActiveCell.Value = "5"
End If

If cboMonth = "June" Then
Range("O1").Select
ActiveCell.Value = "6"
End If

If cboMonth = "July" Then
Range("O1").Select
ActiveCell.Value = "7"
End If

If cboMonth = "August" Then
Range("O1").Select
ActiveCell.Value = "8"
End If

If cboMonth = "September" Then
Range("O1").Select
ActiveCell.Value = "9"
End If

If cboMonth = "October" Then
Range("O1").Select
ActiveCell.Value = "10"
End If

If cboMonth = "November" Then
Range("O1").Select
ActiveCell.Value = "16"
End If

If cboMonth = "December" Then
Range("O1").Select
ActiveCell.Value = "12"
End If
'end month program
End Sub

Private Sub InputCostAlloFillInMonth()

Sheets("INPUT Cost Allo").Select

'this formula references the month figure and changes ROW C
'in the INPUT Cost Allo sheet (which needs to be taking the
'proper month's figures from the INPUT Data Sheet)

If cboMonth = "January" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!B666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!B667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!B668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!B669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!B670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!B671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!B672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!B673"
End If

If cboMonth = "February" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!C666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!C667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!C668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!C669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!C670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!C671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!C672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!C673"
End If

If cboMonth = "March" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!D666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!D667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!D668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!D669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!D670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!D671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!D672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!D673"
End If

If cboMonth = "April" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!E666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!E667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!E668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!E669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!E670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!E671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!E672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!E673"
End If

If cboMonth = "May" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!F666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!F667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!F668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!F669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!F670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!F671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!F672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!F673"
End If

If cboMonth = "June" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!G666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!G667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!G668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!G669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!G670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!G671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!G672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!G673"
End If

If cboMonth = "July" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!H666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!H667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!H668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!H669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!H670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!H671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!H672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!H673"
End If

If cboMonth = "August" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!I666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!I667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!I668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!I669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!I670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!I671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!I672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!I673"
End If

If cboMonth = "September" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!J666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!J667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!J668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!J669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!J670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!J671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!J672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!J673"
End If

If cboMonth = "October" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!K666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!K667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!K668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!K669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!K670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!K671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!K672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!K673"
End If

If cboMonth = "November" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!L666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!L667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!L668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!L669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!L670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!L671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!L672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!L673"
End If

If cboMonth = "December" Then
Range("c4").Select
ActiveCell.Value = "='INPUT Data Sheet'!M666"
Range("c5").Select
ActiveCell.Value = "='INPUT Data Sheet'!M667"
Range("c6").Select
ActiveCell.Value = "='INPUT Data Sheet'!M668"
Range("c7").Select
ActiveCell.Value = "='INPUT Data Sheet'!M669"
Range("c8").Select
ActiveCell.Value = "='INPUT Data Sheet'!M670"
Range("c9").Select
ActiveCell.Value = "='INPUT Data Sheet'!M671"
Range("c10").Select
ActiveCell.Value = "='INPUT Data Sheet'!M672"
Range("c16").Select
ActiveCell.Value = "='INPUT Data Sheet'!M673"
End If
'end program

End Sub

Private Sub InputCostAlloFillIn()
'this program enters the cost allocation information into the
'INPUT cost allo sheet
Range("B4").Select
ActiveCell.Value = txtCommercialMidMarketTime.Value
Range("G4").Select
ActiveCell.Value = txtCommercialMidMarketExp.Value
Range("B12").Select
ActiveCell.Value = txtCorporateTime.Value
Range("G12").Select
ActiveCell.Value = txtCorporateExp.Value
Range("B8").Select
ActiveCell.Value = txtConstructionTime.Value
Range("G8").Select
ActiveCell.Value = txtConstructionExp.Value
Range("B6").Select
ActiveCell.Value = txtClaimsTime.Value
Range("G6").Select
ActiveCell.Value = txtClaimsExp.Value
Range("B9").Select
ActiveCell.Value = txtGlobalEnergyTime.Value
Range("G9").Select
ActiveCell.Value = txtGlobalEnergyExp.Value
Range("B13").Select
ActiveCell.Value = txtChargeToReceivedUnitTime.Value
Range("G13").Select
ActiveCell.Value = txtChargeToReceivedUnitExp.Value
Range("B7").Select
ActiveCell.Value = txtProgrammesTime.Value
Range("G7").Select
ActiveCell.Value = txtProgrammesExp.Value
Range("B10").Select
ActiveCell.Value = txtSuretyTime.Value
Range("G10").Select
ActiveCell.Value = txtSuretyExp.Value
Range("B16").Select
ActiveCell.Value = txtSpecialtiesTime.Value
Range("G16").Select
ActiveCell.Value = txtSpecialtiesExp.Value
'end program

End Sub

Private Sub CompletedRequestedFillIn()
'the following 4 sets of programs enter the figures into the
'Completed & Requested sheet. It compares the date,
'then enters the figures in the appropriate rowdepends on the
'date and SBU

Sheets("Completed & Requested").Select

CompletedRequestedFillIn_COMPLETEDFILLIN

Sheets("On Hand").Select

CompletedRequestedFillIn_ONHANDFILLIN

End Sub

Private Sub CompletedRequestedFillIn_ONHANDFILLIN()

If cboMonth = "January" Then
Range("c16").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F16").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I16").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L16").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O16").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R16").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U16").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X16").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA16").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD16").Select
ActiveCell.Value = "='Collating Sheet'!H16"
End If

If cboMonth = "February" Then
Range("c12").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F12").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I12").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L12").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O12").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R12").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U12").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X12").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA12").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD12").Select
ActiveCell.Value = "='Collating Sheet'!H12"
End If

If cboMonth = "March" Then
Range("c13").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F13").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I13").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L13").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O13").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R13").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U13").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X13").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA13").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD13").Select
ActiveCell.Value = "='Collating Sheet'!H13"
End If

If cboMonth = "April" Then
Range("c14").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F14").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I14").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L14").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O14").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R14").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U14").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X14").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA14").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD14").Select
ActiveCell.Value = "='Collating Sheet'!H14"
End If

If cboMonth = "May" Then
Range("c15").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F15").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I15").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L15").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O15").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R15").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U15").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X15").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA15").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD15").Select
ActiveCell.Value = "='Collating Sheet'!H15"
End If

If cboMonth = "June" Then
Range("c16").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F16").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I16").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L16").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O16").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R16").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U16").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X16").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA16").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD16").Select
ActiveCell.Value = "='Collating Sheet'!H16"
End If

If cboMonth = "July" Then
Range("c17").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F17").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I17").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L17").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O17").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R17").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U17").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X17").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA17").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD17").Select
ActiveCell.Value = "='Collating Sheet'!H17"
End If

If cboMonth = "August" Then
Range("c18").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F18").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I18").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L18").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O18").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R18").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U18").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X18").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA18").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD18").Select
ActiveCell.Value = "='Collating Sheet'!H18"
End If

If cboMonth = "September" Then
Range("c19").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F19").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I19").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L19").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O19").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R19").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U19").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X19").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA19").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD19").Select
ActiveCell.Value = "='Collating Sheet'!H19"
End If

If cboMonth = "October" Then
Range("c20").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F20").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I20").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L20").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O20").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R20").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U20").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X20").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA20").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD20").Select
ActiveCell.Value = "='Collating Sheet'!H20"
End If

If cboMonth = "November" Then
Range("c21").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F21").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I21").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L21").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O21").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R21").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U21").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X21").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA21").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD21").Select
ActiveCell.Value = "='Collating Sheet'!H21"
End If

If cboMonth = "December" Then
Range("c22").Select
ActiveCell.Value = "='Collating Sheet'!H2"
Range("F22").Select
ActiveCell.Value = "='Collating Sheet'!H3"
Range("I22").Select
ActiveCell.Value = "='Collating Sheet'!H4"
Range("L22").Select
ActiveCell.Value = "='Collating Sheet'!H5"
Range("O22").Select
ActiveCell.Value = "='Collating Sheet'!H6"
Range("R22").Select
ActiveCell.Value = "='Collating Sheet'!H7"
Range("U22").Select
ActiveCell.Value = "='Collating Sheet'!H8"
Range("X22").Select
ActiveCell.Value = "='Collating Sheet'!H9"
Range("AA22").Select
ActiveCell.Value = "='Collating Sheet'!H10"
Range("AD22").Select
ActiveCell.Value = "='Collating Sheet'!H22"
End If
End Sub

Private Sub CompletedRequestedFillIn_COMPLETEDFILLIN()

If cboMonth = "January" Then
Range("C8").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F8").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I8").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L8").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O8").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R8").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U8").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X8").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA8").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD8").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "February" Then
Range("C9").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F9").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I9").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L9").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O9").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R9").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U9").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X9").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA9").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD9").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "March" Then
Range("C10").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F10").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I10").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L10").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O10").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R10").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U10").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X10").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA10").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD10").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "April" Then
Range("C16").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F16").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I16").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L16").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O16").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R16").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U16").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X16").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA16").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD16").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "May" Then
Range("C12").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F12").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I12").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L12").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O12").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R12").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U12").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X12").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA12").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD12").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "June" Then
Range("C13").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F13").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I13").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L13").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O13").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R13").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U13").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X13").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA13").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD13").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "July" Then
Range("C14").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F14").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I14").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L14").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O14").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R14").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U14").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X14").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA14").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD14").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "August" Then
Range("C15").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F15").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I15").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L15").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O15").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R15").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U15").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X15").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA15").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD15").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "September" Then
Range("C16").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F16").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I16").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L16").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O16").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R16").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U16").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X16").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA16").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD16").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "October" Then
Range("C17").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F17").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I17").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L17").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O17").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R17").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U17").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X17").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA17").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD17").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "November" Then
Range("C18").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F18").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I18").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L18").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O18").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R18").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U18").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X18").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA18").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD18").Select
ActiveCell.Value = txtCompletedProject.Value
End If

If cboMonth = "December" Then
Range("C19").Select
ActiveCell.Value = txtCompletedQuote.Value
Range("F19").Select
ActiveCell.Value = txtCompletedInitial.Value
Range("I19").Select
ActiveCell.Value = txtCompletedReinsp.Value
Range("L19").Select
ActiveCell.Value = txtCompletedBM.Value
Range("O19").Select
ActiveCell.Value = txtCompletedDesk.Value
Range("R19").Select
ActiveCell.Value = txtCompletedClaims.Value
Range("U19").Select
ActiveCell.Value = txtCompletedAccount.Value
Range("X19").Select
ActiveCell.Value = txtCompletedRecommendation.Value
Range("AA19").Select
ActiveCell.Value = txtCompletedCustomer.Value
Range("AD19").Select
ActiveCell.Value = txtCompletedProject.Value
End If
'end program

End Sub

Private Sub OnHandFillIn()

Sheets("Collating Sheet").Select

'Collating Sheet'!E2
Range("e2").Select
ActiveCell.Value = txtAssignedQuote.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedInitial.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedReinsp.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedBM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedDesk.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedAccount.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedRecommendation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedCustomer.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtAssignedProject.Value

Range("F2").Select
ActiveCell.Value = txtUnassignedQuote.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedInitial.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedReinsp.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedBM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedDesk.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedAccount.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedRecommendation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedCustomer.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtUnassignedProject.Value

Range("g2").Select
ActiveCell.Value = txtInspectedQuote.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedInitial.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedReinsp.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedBM.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedDesk.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedClaims.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedAccount.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedRecommendation.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedCustomer.Value
ActiveCell.Offset(1).Select
ActiveCell.Value = txtInspectedProject.Value

End Sub
Private Sub AOCFiguresFillIn()

'this program fills in the fields on the AOC Figures sheet
'with the potential to be programmed to delete the oldest column
(working on that)*****

Sheets("AOC Figures").Select

Range("o1").Select
ActiveCell.Value = cboMonth.Value + txtYear.Value

Range("o2").Select
ActiveCell.Value = ("'Collating Sheet'!B2")
Range("o3").Select
ActiveCell.Value = ("'Collating Sheet'!C2")
Range("o4").Select
ActiveCell.Value = ("'Collating Sheet'!A2")

End Sub

Private Sub TrackingAssignmentsFiguresFillIn()

'this program fills in the fields on the AOC Figures sheet
'with the potential to be programmed to delete the oldest column
(working on that)*****

Sheets("Tracking Assignments Figures").Select

If cboMonth = "January" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C33")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F33")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I33")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L33")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O33")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R33")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U33")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X33")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA33")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD33")
End If

If cboMonth = "February" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C34")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F34")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I34")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L34")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O34")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R34")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U34")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X34")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA34")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD34")
End If

If cboMonth = "March" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C35")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F35")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I35")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L35")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O35")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R35")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U35")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X35")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA35")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD35")
End If

If cboMonth = "April" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C36")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F36")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I36")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L36")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O36")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R36")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U36")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X36")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA36")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD36")
End If

If cboMonth = "May" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C37")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F37")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I37")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L37")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O37")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R37")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U37")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X37")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA37")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD37")
End If

If cboMonth = "June" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C38")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F38")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I38")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L38")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O38")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R38")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U38")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X38")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA38")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD38")
End If

If cboMonth = "July" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C39")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F39")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I39")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L39")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O39")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R39")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U39")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X39")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA39")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD39")
End If

If cboMonth = "August" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C40")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F40")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I40")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L40")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O40")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R40")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U40")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X40")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA40")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD40")
End If

If cboMonth = "September" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C41")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F41")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I41")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L41")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O41")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R41")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U41")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X41")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA41")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD41")
End If

If cboMonth = "October" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C42")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F42")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I42")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L42")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O42")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R42")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U42")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X42")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA42")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD42")
End If

If cboMonth = "November" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C43")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F43")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I43")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L43")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O43")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R43")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U43")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X43")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA43")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD43")
End If

If cboMonth = "December" Then
Range("o3").Select
ActiveCell.Value = ("'Completed & Requested'!C44")
Range("o4").Select
ActiveCell.Value = ("'Completed & Requested'!F44")
Range("o5").Select
ActiveCell.Value = ("'Completed & Requested'!I44")
Range("o6").Select
ActiveCell.Value = ("'Completed & Requested'!L44")
Range("o7").Select
ActiveCell.Value = ("'Completed & Requested'!O44")
Range("o8").Select
ActiveCell.Value = ("'Completed & Requested'!R44")
Range("o9").Select
ActiveCell.Value = ("'Completed & Requested'!U44")
Range("o10").Select
ActiveCell.Value = ("'Completed & Requested'!X44")
Range("o16").Select
ActiveCell.Value = ("'Completed & Requested'!AA44")
Range("o12").Select
ActiveCell.Value = ("'Completed & Requested'!AD44")
End If

End Sub

Private Sub ChartFiguresFillIn()

Sheets("Chart Figures").Select

'this enters the completed figures from the page noted
If cboMonth = "January" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c8")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F8")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I8")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L8")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o8")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R8")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U8")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x8")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa8")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad8")
End If

If cboMonth = "February" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c9")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F9")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I9")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L9")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o9")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R9")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U9")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x9")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa9")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad9")
End If

If cboMonth = "March" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c10")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F10")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I10")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L10")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o10")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R10")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U10")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x10")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa10")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad10")
End If

If cboMonth = "April" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c16")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F16")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I16")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L16")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o16")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R16")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U16")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x16")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa16")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad16")
End If

If cboMonth = "May" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c12")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F12")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I12")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L12")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o12")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R12")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U12")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x12")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa12")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad12")
End If

If cboMonth = "June" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c13")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F13")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I13")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L13")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o13")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R13")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U13")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x13")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa13")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad13")
End If

If cboMonth = "July" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c14")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F14")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I14")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L14")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o14")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R14")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U14")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x14")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa14")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad14")
End If

If cboMonth = "August" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c15")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F15")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I15")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L15")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o15")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R15")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U15")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x15")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa15")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad15")
End If

If cboMonth = "September" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c16")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F16")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I16")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L16")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o16")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R16")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U16")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x16")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa16")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad16")
End If

If cboMonth = "October" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c17")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F17")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I17")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L17")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o17")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R17")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U17")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x17")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa17")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad17")
End If

If cboMonth = "November" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c18")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F18")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I18")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L18")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o18")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R18")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U18")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x18")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa18")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad18")
End If

If cboMonth = "December" Then
Range("b3").Select
ActiveCall.Value = ("'Completed & Requested'!c19")
Range("C3").Select
ActiveCall.Value = ("'Completed & Requested'!F19")
Range("d3").Select
ActiveCall.Value = ("'Completed & Requested'!I19")
Range("e3").Select
ActiveCall.Value = ("'Completed & Requested'!L19")
Range("f3").Select
ActiveCall.Value = ("'Completed & Requested'!o19")
Range("g3").Select
ActiveCall.Value = ("'Completed & Requested'!R19")
Range("h3").Select
ActiveCall.Value = ("'Completed & Requested'!U19")
Range("i3").Select
ActiveCall.Value = ("'Completed & Requested'!x19")
Range("j3").Select
ActiveCall.Value = ("'Completed & Requested'!aa19")
Range("k3").Select
ActiveCall.Value = ("'Completed & Requested'!ad19")
End If

'and this enters the # Requested figure from the page noted
If cboMonth = "January" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c33")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F33")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I33")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L33")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o33")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R33")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U33")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x33")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa33")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad33")
End If

If cboMonth = "February" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c34")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F34")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I34")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L34")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o34")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R34")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U34")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x34")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa34")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad34")
End If

If cboMonth = "March" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c35")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F35")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I35")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L35")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o35")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R35")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U35")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x35")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa35")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad35")
End If

If cboMonth = "April" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c36")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F36")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I36")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L36")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o36")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R36")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U36")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x36")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa36")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad36")
End If

If cboMonth = "May" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c37")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F37")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I37")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L37")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o37")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R37")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U37")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x37")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa37")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad37")
End If

If cboMonth = "June" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c38")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F38")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I38")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L38")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o38")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R38")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U38")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x38")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa38")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad38")
End If

If cboMonth = "July" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c39")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F39")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I39")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L39")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o39")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R39")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U39")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x39")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa39")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad39")
End If

If cboMonth = "August" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c40")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F40")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I40")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L40")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o40")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R40")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U40")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x40")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa40")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad40")
End If

If cboMonth = "September" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c41")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F41")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I41")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L41")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o41")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R41")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U41")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x41")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa41")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad41")
End If

If cboMonth = "October" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c42")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F42")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I42")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L42")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o42")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R42")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U42")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x42")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa42")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad42")
End If

If cboMonth = "November" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c43")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F43")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I43")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L43")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o43")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R43")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U43")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x43")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa43")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad43")
End If

If cboMonth = "December" Then
Range("b4").Select
ActiveCall.Value = ("'Completed & Requested'!c44")
Range("C4").Select
ActiveCall.Value = ("'Completed & Requested'!F44")
Range("d4").Select
ActiveCall.Value = ("'Completed & Requested'!I44")
Range("e4").Select
ActiveCall.Value = ("'Completed & Requested'!L44")
Range("f4").Select
ActiveCall.Value = ("'Completed & Requested'!o44")
Range("g4").Select
ActiveCall.Value = ("'Completed & Requested'!R44")
Range("h4").Select
ActiveCall.Value = ("'Completed & Requested'!U44")
Range("i4").Select
ActiveCall.Value = ("'Completed & Requested'!x44")
Range("j4").Select
ActiveCall.Value = ("'Completed & Requested'!aa44")
Range("k4").Select
ActiveCall.Value = ("'Completed & Requested'!ad44")
End If

End Sub
Private Sub BillableHoursFillIn()

'this program enters the figures in the billable hours
'sheet, based on the completed figures and the adjustments
'that the reps send in each month

BillableHoursCompleted

End Sub
Private Sub BillableHoursCompleted()

'enters the completed figures into the billable hours sheet

Sheets("INPUT Data Sheet").Select

If cboMonth = "January" Then
Range("b5").Select
ActiveCell.Value = txtAlex.Value
Range("b27").Select
ActiveCell.Value = txtAndreanne.Value
Range("b49").Select
ActiveCell.Value = txtMikeR.Value
Range("b71").Select
ActiveCell.Value = txtBill.Value
Range("b93").Select
ActiveCell.Value = txtBob.Value
Range("b165").Select
ActiveCell.Value = txtClive.Value
Range("b137").Select
ActiveCell.Value = txtDave.Value
Range("b159").Select
ActiveCell.Value = txtDon.Value
Range("b181").Select
ActiveCell.Value = txtLen.Value
Range("b203").Select
ActiveCell.Value = txtPascal.Value
Range("b225").Select
ActiveCell.Value = txtJacques.Value
Range("b247").Select
ActiveCell.Value = txtJean.Value
Range("b269").Select
ActiveCell.Value = txtKevin.Value
Range("b291").Select
ActiveCell.Value = txtRob.Value
Range("b313").Select
ActiveCell.Value = txtChris.Value
Range("b335").Select
ActiveCell.Value = txtMatt.Value
Range("b357").Select
ActiveCell.Value = txtMikeC.Value
Range("b379").Select
ActiveCell.Value = txtJulie.Value
Range("b401").Select
ActiveCell.Value = txtRene.Value
Range("b423").Select
ActiveCell.Value = txtScott.Value
Range("b445").Select
ActiveCell.Value = txtSteve.Value
Range("b467").Select
ActiveCell.Value = txtStewart.Value
Range("b489").Select
ActiveCell.Value = txtSylvia.Value
Range("b516").Select
ActiveCell.Value = txtTom.Value
Range("b533").Select
ActiveCell.Value = txtTony.Value
Range("b555").Select
ActiveCell.Value = txtMikeM.Value
Range("b577").Select
ActiveCell.Value = txtLino.Value
Range("b599").Select
ActiveCell.Value = txtRaed.Value
Range("b621").Select
ActiveCell.Value = txtJared.Value
Range("b643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "February" Then
Range("C5").Select
ActiveCell.Value = txtAlex.Value
Range("C27").Select
ActiveCell.Value = txtAndreanne.Value
Range("C49").Select
ActiveCell.Value = txtMikeR.Value
Range("C71").Select
ActiveCell.Value = txtBill.Value
Range("C93").Select
ActiveCell.Value = txtBob.Value
Range("C165").Select
ActiveCell.Value = txtClive.Value
Range("C137").Select
ActiveCell.Value = txtDave.Value
Range("C159").Select
ActiveCell.Value = txtDon.Value
Range("C181").Select
ActiveCell.Value = txtLen.Value
Range("C203").Select
ActiveCell.Value = txtPascal.Value
Range("C225").Select
ActiveCell.Value = txtJacques.Value
Range("C247").Select
ActiveCell.Value = txtJean.Value
Range("C269").Select
ActiveCell.Value = txtKevin.Value
Range("C291").Select
ActiveCell.Value = txtRob.Value
Range("C313").Select
ActiveCell.Value = txtChris.Value
Range("C335").Select
ActiveCell.Value = txtMatt.Value
Range("C357").Select
ActiveCell.Value = txtMikeC.Value
Range("C379").Select
ActiveCell.Value = txtJulie.Value
Range("C401").Select
ActiveCell.Value = txtRene.Value
Range("C423").Select
ActiveCell.Value = txtScott.Value
Range("C445").Select
ActiveCell.Value = txtSteve.Value
Range("C467").Select
ActiveCell.Value = txtStewart.Value
Range("C489").Select
ActiveCell.Value = txtSylvia.Value
Range("C516").Select
ActiveCell.Value = txtTom.Value
Range("C533").Select
ActiveCell.Value = txtTony.Value
Range("C555").Select
ActiveCell.Value = txtMikeM.Value
Range("C577").Select
ActiveCell.Value = txtLino.Value
Range("C599").Select
ActiveCell.Value = txtRaed.Value
Range("C621").Select
ActiveCell.Value = txtJared.Value
Range("C643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "March" Then
Range("D5").Select
ActiveCell.Value = txtAlex.Value
Range("D27").Select
ActiveCell.Value = txtAndreanne.Value
Range("D49").Select
ActiveCell.Value = txtMikeR.Value
Range("D71").Select
ActiveCell.Value = txtBill.Value
Range("D93").Select
ActiveCell.Value = txtBob.Value
Range("D165").Select
ActiveCell.Value = txtClive.Value
Range("D137").Select
ActiveCell.Value = txtDave.Value
Range("D159").Select
ActiveCell.Value = txtDon.Value
Range("D181").Select
ActiveCell.Value = txtLen.Value
Range("D203").Select
ActiveCell.Value = txtPascal.Value
Range("D225").Select
ActiveCell.Value = txtJacques.Value
Range("D247").Select
ActiveCell.Value = txtJean.Value
Range("D269").Select
ActiveCell.Value = txtKevin.Value
Range("D291").Select
ActiveCell.Value = txtRob.Value
Range("D313").Select
ActiveCell.Value = txtChris.Value
Range("D335").Select
ActiveCell.Value = txtMatt.Value
Range("D357").Select
ActiveCell.Value = txtMikeC.Value
Range("D379").Select
ActiveCell.Value = txtJulie.Value
Range("D401").Select
ActiveCell.Value = txtRene.Value
Range("D423").Select
ActiveCell.Value = txtScott.Value
Range("D445").Select
ActiveCell.Value = txtSteve.Value
Range("D467").Select
ActiveCell.Value = txtStewart.Value
Range("D489").Select
ActiveCell.Value = txtSylvia.Value
Range("D516").Select
ActiveCell.Value = txtTom.Value
Range("D533").Select
ActiveCell.Value = txtTony.Value
Range("D555").Select
ActiveCell.Value = txtMikeM.Value
Range("D577").Select
ActiveCell.Value = txtLino.Value
Range("D599").Select
ActiveCell.Value = txtRaed.Value
Range("D621").Select
ActiveCell.Value = txtJared.Value
Range("D643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "April" Then
Range("E5").Select
ActiveCell.Value = txtAlex.Value
Range("E27").Select
ActiveCell.Value = txtAndreanne.Value
Range("E49").Select
ActiveCell.Value = txtMikeR.Value
Range("E71").Select
ActiveCell.Value = txtBill.Value
Range("E93").Select
ActiveCell.Value = txtBob.Value
Range("E165").Select
ActiveCell.Value = txtClive.Value
Range("E137").Select
ActiveCell.Value = txtDave.Value
Range("E159").Select
ActiveCell.Value = txtDon.Value
Range("E181").Select
ActiveCell.Value = txtLen.Value
Range("E203").Select
ActiveCell.Value = txtPascal.Value
Range("E225").Select
ActiveCell.Value = txtJacques.Value
Range("E247").Select
ActiveCell.Value = txtJean.Value
Range("E269").Select
ActiveCell.Value = txtKevin.Value
Range("E291").Select
ActiveCell.Value = txtRob.Value
Range("E313").Select
ActiveCell.Value = txtChris.Value
Range("E335").Select
ActiveCell.Value = txtMatt.Value
Range("E357").Select
ActiveCell.Value = txtMikeC.Value
Range("E379").Select
ActiveCell.Value = txtJulie.Value
Range("E401").Select
ActiveCell.Value = txtRene.Value
Range("E423").Select
ActiveCell.Value = txtScott.Value
Range("E445").Select
ActiveCell.Value = txtSteve.Value
Range("E467").Select
ActiveCell.Value = txtStewart.Value
Range("E489").Select
ActiveCell.Value = txtSylvia.Value
Range("E516").Select
ActiveCell.Value = txtTom.Value
Range("E533").Select
ActiveCell.Value = txtTony.Value
Range("E555").Select
ActiveCell.Value = txtMikeM.Value
Range("E577").Select
ActiveCell.Value = txtLino.Value
Range("E599").Select
ActiveCell.Value = txtRaed.Value
Range("E621").Select
ActiveCell.Value = txtJared.Value
Range("E643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "May" Then
Range("F5").Select
ActiveCell.Value = txtAlex.Value
Range("F27").Select
ActiveCell.Value = txtAndreanne.Value
Range("F49").Select
ActiveCell.Value = txtMikeR.Value
Range("F71").Select
ActiveCell.Value = txtBill.Value
Range("F93").Select
ActiveCell.Value = txtBob.Value
Range("F165").Select
ActiveCell.Value = txtClive.Value
Range("F137").Select
ActiveCell.Value = txtDave.Value
Range("F159").Select
ActiveCell.Value = txtDon.Value
Range("F181").Select
ActiveCell.Value = txtLen.Value
Range("F203").Select
ActiveCell.Value = txtPascal.Value
Range("F225").Select
ActiveCell.Value = txtJacques.Value
Range("F247").Select
ActiveCell.Value = txtJean.Value
Range("F269").Select
ActiveCell.Value = txtKevin.Value
Range("F291").Select
ActiveCell.Value = txtRob.Value
Range("F313").Select
ActiveCell.Value = txtChris.Value
Range("F335").Select
ActiveCell.Value = txtMatt.Value
Range("F357").Select
ActiveCell.Value = txtMikeC.Value
Range("F379").Select
ActiveCell.Value = txtJulie.Value
Range("F401").Select
ActiveCell.Value = txtRene.Value
Range("F423").Select
ActiveCell.Value = txtScott.Value
Range("F445").Select
ActiveCell.Value = txtSteve.Value
Range("F467").Select
ActiveCell.Value = txtStewart.Value
Range("F489").Select
ActiveCell.Value = txtSylvia.Value
Range("F516").Select
ActiveCell.Value = txtTom.Value
Range("F533").Select
ActiveCell.Value = txtTony.Value
Range("F555").Select
ActiveCell.Value = txtMikeM.Value
Range("F577").Select
ActiveCell.Value = txtLino.Value
Range("F599").Select
ActiveCell.Value = txtRaed.Value
Range("F621").Select
ActiveCell.Value = txtJared.Value
Range("F643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "June" Then
Range("G5").Select
ActiveCell.Value = txtAlex.Value
Range("G27").Select
ActiveCell.Value = txtAndreanne.Value
Range("G49").Select
ActiveCell.Value = txtMikeR.Value
Range("G71").Select
ActiveCell.Value = txtBill.Value
Range("G93").Select
ActiveCell.Value = txtBob.Value
Range("G165").Select
ActiveCell.Value = txtClive.Value
Range("G137").Select
ActiveCell.Value = txtDave.Value
Range("G159").Select
ActiveCell.Value = txtDon.Value
Range("G181").Select
ActiveCell.Value = txtLen.Value
Range("G203").Select
ActiveCell.Value = txtPascal.Value
Range("G225").Select
ActiveCell.Value = txtJacques.Value
Range("G247").Select
ActiveCell.Value = txtJean.Value
Range("G269").Select
ActiveCell.Value = txtKevin.Value
Range("G291").Select
ActiveCell.Value = txtRob.Value
Range("G313").Select
ActiveCell.Value = txtChris.Value
Range("G335").Select
ActiveCell.Value = txtMatt.Value
Range("G357").Select
ActiveCell.Value = txtMikeC.Value
Range("G379").Select
ActiveCell.Value = txtJulie.Value
Range("G401").Select
ActiveCell.Value = txtRene.Value
Range("G423").Select
ActiveCell.Value = txtScott.Value
Range("G445").Select
ActiveCell.Value = txtSteve.Value
Range("G467").Select
ActiveCell.Value = txtStewart.Value
Range("G489").Select
ActiveCell.Value = txtSylvia.Value
Range("G516").Select
ActiveCell.Value = txtTom.Value
Range("G533").Select
ActiveCell.Value = txtTony.Value
Range("G555").Select
ActiveCell.Value = txtMikeM.Value
Range("G577").Select
ActiveCell.Value = txtLino.Value
Range("G599").Select
ActiveCell.Value = txtRaed.Value
Range("G621").Select
ActiveCell.Value = txtJared.Value
Range("G643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "July" Then
Range("H5").Select
ActiveCell.Value = txtAlex.Value
Range("H27").Select
ActiveCell.Value = txtAndreanne.Value
Range("H49").Select
ActiveCell.Value = txtMikeR.Value
Range("H71").Select
ActiveCell.Value = txtBill.Value
Range("H93").Select
ActiveCell.Value = txtBob.Value
Range("H165").Select
ActiveCell.Value = txtClive.Value
Range("H137").Select
ActiveCell.Value = txtDave.Value
Range("H159").Select
ActiveCell.Value = txtDon.Value
Range("H181").Select
ActiveCell.Value = txtLen.Value
Range("H203").Select
ActiveCell.Value = txtPascal.Value
Range("H225").Select
ActiveCell.Value = txtJacques.Value
Range("H247").Select
ActiveCell.Value = txtJean.Value
Range("H269").Select
ActiveCell.Value = txtKevin.Value
Range("H291").Select
ActiveCell.Value = txtRob.Value
Range("H313").Select
ActiveCell.Value = txtChris.Value
Range("H335").Select
ActiveCell.Value = txtMatt.Value
Range("H357").Select
ActiveCell.Value = txtMikeC.Value
Range("H379").Select
ActiveCell.Value = txtJulie.Value
Range("H401").Select
ActiveCell.Value = txtRene.Value
Range("H423").Select
ActiveCell.Value = txtScott.Value
Range("H445").Select
ActiveCell.Value = txtSteve.Value
Range("H467").Select
ActiveCell.Value = txtStewart.Value
Range("H489").Select
ActiveCell.Value = txtSylvia.Value
Range("H516").Select
ActiveCell.Value = txtTom.Value
Range("H533").Select
ActiveCell.Value = txtTony.Value
Range("H555").Select
ActiveCell.Value = txtMikeM.Value
Range("H577").Select
ActiveCell.Value = txtLino.Value
Range("H599").Select
ActiveCell.Value = txtRaed.Value
Range("H621").Select
ActiveCell.Value = txtJared.Value
Range("H643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "August" Then
Range("I5").Select
ActiveCell.Value = txtAlex.Value
Range("I27").Select
ActiveCell.Value = txtAndreanne.Value
Range("I49").Select
ActiveCell.Value = txtMikeR.Value
Range("I71").Select
ActiveCell.Value = txtBill.Value
Range("I93").Select
ActiveCell.Value = txtBob.Value
Range("I165").Select
ActiveCell.Value = txtClive.Value
Range("I137").Select
ActiveCell.Value = txtDave.Value
Range("I159").Select
ActiveCell.Value = txtDon.Value
Range("I181").Select
ActiveCell.Value = txtLen.Value
Range("I203").Select
ActiveCell.Value = txtPascal.Value
Range("I225").Select
ActiveCell.Value = txtJacques.Value
Range("I247").Select
ActiveCell.Value = txtJean.Value
Range("I269").Select
ActiveCell.Value = txtKevin.Value
Range("I291").Select
ActiveCell.Value = txtRob.Value
Range("I313").Select
ActiveCell.Value = txtChris.Value
Range("I335").Select
ActiveCell.Value = txtMatt.Value
Range("I357").Select
ActiveCell.Value = txtMikeC.Value
Range("I379").Select
ActiveCell.Value = txtJulie.Value
Range("I401").Select
ActiveCell.Value = txtRene.Value
Range("I423").Select
ActiveCell.Value = txtScott.Value
Range("I445").Select
ActiveCell.Value = txtSteve.Value
Range("I467").Select
ActiveCell.Value = txtStewart.Value
Range("I489").Select
ActiveCell.Value = txtSylvia.Value
Range("I516").Select
ActiveCell.Value = txtTom.Value
Range("I533").Select
ActiveCell.Value = txtTony.Value
Range("I555").Select
ActiveCell.Value = txtMikeM.Value
Range("I577").Select
ActiveCell.Value = txtLino.Value
Range("I599").Select
ActiveCell.Value = txtRaed.Value
Range("I621").Select
ActiveCell.Value = txtJared.Value
Range("I643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "September" Then
Range("J5").Select
ActiveCell.Value = txtAlex.Value
Range("J27").Select
ActiveCell.Value = txtAndreanne.Value
Range("J49").Select
ActiveCell.Value = txtMikeR.Value
Range("J71").Select
ActiveCell.Value = txtBill.Value
Range("J93").Select
ActiveCell.Value = txtBob.Value
Range("J165").Select
ActiveCell.Value = txtClive.Value
Range("J137").Select
ActiveCell.Value = txtDave.Value
Range("J159").Select
ActiveCell.Value = txtDon.Value
Range("J181").Select
ActiveCell.Value = txtLen.Value
Range("J203").Select
ActiveCell.Value = txtPascal.Value
Range("J225").Select
ActiveCell.Value = txtJacques.Value
Range("J247").Select
ActiveCell.Value = txtJean.Value
Range("J269").Select
ActiveCell.Value = txtKevin.Value
Range("J291").Select
ActiveCell.Value = txtRob.Value
Range("J313").Select
ActiveCell.Value = txtChris.Value
Range("J335").Select
ActiveCell.Value = txtMatt.Value
Range("J357").Select
ActiveCell.Value = txtMikeC.Value
Range("J379").Select
ActiveCell.Value = txtJulie.Value
Range("J401").Select
ActiveCell.Value = txtRene.Value
Range("J423").Select
ActiveCell.Value = txtScott.Value
Range("J445").Select
ActiveCell.Value = txtSteve.Value
Range("J467").Select
ActiveCell.Value = txtStewart.Value
Range("J489").Select
ActiveCell.Value = txtSylvia.Value
Range("J516").Select
ActiveCell.Value = txtTom.Value
Range("J533").Select
ActiveCell.Value = txtTony.Value
Range("J555").Select
ActiveCell.Value = txtMikeM.Value
Range("J577").Select
ActiveCell.Value = txtLino.Value
Range("J599").Select
ActiveCell.Value = txtRaed.Value
Range("J621").Select
ActiveCell.Value = txtJared.Value
Range("J643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "October" Then
Range("K5").Select
ActiveCell.Value = txtAlex.Value
Range("K27").Select
ActiveCell.Value = txtAndreanne.Value
Range("K49").Select
ActiveCell.Value = txtMikeR.Value
Range("K71").Select
ActiveCell.Value = txtBill.Value
Range("K93").Select
ActiveCell.Value = txtBob.Value
Range("K165").Select
ActiveCell.Value = txtClive.Value
Range("K137").Select
ActiveCell.Value = txtDave.Value
Range("K159").Select
ActiveCell.Value = txtDon.Value
Range("K181").Select
ActiveCell.Value = txtLen.Value
Range("K203").Select
ActiveCell.Value = txtPascal.Value
Range("K225").Select
ActiveCell.Value = txtJacques.Value
Range("K247").Select
ActiveCell.Value = txtJean.Value
Range("K269").Select
ActiveCell.Value = txtKevin.Value
Range("K291").Select
ActiveCell.Value = txtRob.Value
Range("K313").Select
ActiveCell.Value = txtChris.Value
Range("K335").Select
ActiveCell.Value = txtMatt.Value
Range("K357").Select
ActiveCell.Value = txtMikeC.Value
Range("K379").Select
ActiveCell.Value = txtJulie.Value
Range("K401").Select
ActiveCell.Value = txtRene.Value
Range("K423").Select
ActiveCell.Value = txtScott.Value
Range("K445").Select
ActiveCell.Value = txtSteve.Value
Range("K467").Select
ActiveCell.Value = txtStewart.Value
Range("K489").Select
ActiveCell.Value = txtSylvia.Value
Range("K516").Select
ActiveCell.Value = txtTom.Value
Range("K533").Select
ActiveCell.Value = txtTony.Value
Range("K555").Select
ActiveCell.Value = txtMikeM.Value
Range("K577").Select
ActiveCell.Value = txtLino.Value
Range("K599").Select
ActiveCell.Value = txtRaed.Value
Range("K621").Select
ActiveCell.Value = txtJared.Value
Range("K643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "November" Then
Range("L5").Select
ActiveCell.Value = txtAlex.Value
Range("L27").Select
ActiveCell.Value = txtAndreanne.Value
Range("L49").Select
ActiveCell.Value = txtMikeR.Value
Range("L71").Select
ActiveCell.Value = txtBill.Value
Range("L93").Select
ActiveCell.Value = txtBob.Value
Range("L165").Select
ActiveCell.Value = txtClive.Value
Range("L137").Select
ActiveCell.Value = txtDave.Value
Range("L159").Select
ActiveCell.Value = txtDon.Value
Range("L181").Select
ActiveCell.Value = txtLen.Value
Range("L203").Select
ActiveCell.Value = txtPascal.Value
Range("L225").Select
ActiveCell.Value = txtJacques.Value
Range("L247").Select
ActiveCell.Value = txtJean.Value
Range("L269").Select
ActiveCell.Value = txtKevin.Value
Range("L291").Select
ActiveCell.Value = txtRob.Value
Range("L313").Select
ActiveCell.Value = txtChris.Value
Range("L335").Select
ActiveCell.Value = txtMatt.Value
Range("L357").Select
ActiveCell.Value = txtMikeC.Value
Range("L379").Select
ActiveCell.Value = txtJulie.Value
Range("L401").Select
ActiveCell.Value = txtRene.Value
Range("L423").Select
ActiveCell.Value = txtScott.Value
Range("L445").Select
ActiveCell.Value = txtSteve.Value
Range("L467").Select
ActiveCell.Value = txtStewart.Value
Range("L489").Select
ActiveCell.Value = txtSylvia.Value
Range("L516").Select
ActiveCell.Value = txtTom.Value
Range("L533").Select
ActiveCell.Value = txtTony.Value
Range("L555").Select
ActiveCell.Value = txtMikeM.Value
Range("L577").Select
ActiveCell.Value = txtLino.Value
Range("L599").Select
ActiveCell.Value = txtRaed.Value
Range("L621").Select
ActiveCell.Value = txtJared.Value
Range("L643").Select
ActiveCell.Value = txtWael.Value

If cboMonth = "December" Then
Range("M5").Select
ActiveCell.Value = txtAlex.Value
Range("M27").Select
ActiveCell.Value = txtAndreanne.Value
Range("M49").Select
ActiveCell.Value = txtMikeR.Value
Range("M71").Select
ActiveCell.Value = txtBill.Value
Range("M93").Select
ActiveCell.Value = txtBob.Value
Range("M165").Select
ActiveCell.Value = txtClive.Value
Range("M137").Select
ActiveCell.Value = txtDave.Value
Range("M159").Select
ActiveCell.Value = txtDon.Value
Range("M181").Select
ActiveCell.Value = txtLen.Value
Range("M203").Select
ActiveCell.Value = txtPascal.Value
Range("M225").Select
ActiveCell.Value = txtJacques.Value
Range("M247").Select
ActiveCell.Value = txtJean.Value
Range("M269").Select
ActiveCell.Value = txtKevin.Value
Range("M291").Select
ActiveCell.Value = txtRob.Value
Range("M313").Select
ActiveCell.Value = txtChris.Value
Range("M335").Select
ActiveCell.Value = txtMatt.Value
Range("M357").Select
ActiveCell.Value = txtMikeC.Value
Range("M379").Select
ActiveCell.Value = txtJulie.Value
Range("M401").Select
ActiveCell.Value = txtRene.Value
Range("M423").Select
ActiveCell.Value = txtScott.Value
Range("M445").Select
ActiveCell.Value = txtSteve.Value
Range("M467").Select
ActiveCell.Value = txtStewart.Value
Range("M489").Select
ActiveCell.Value = txtSylvia.Value
Range("M516").Select
ActiveCell.Value = txtTom.Value
Range("M533").Select
ActiveCell.Value = txtTony.Value
Range("M555").Select
ActiveCell.Value = txtMikeM.Value
Range("M577").Select
ActiveCell.Value = txtLino.Value
Range("M599").Select
ActiveCell.Value = txtRaed.Value
Range("M621").Select
ActiveCell.Value = txtJared.Value
Range("M643").Select
ActiveCell.Value = txtWael.Value
End Sub

Private Sub MonthEntryFillIn()

Sheets("INPUT Data Sheet").Select
Range("L2").Select

If cboMonth = "January" Then
ActiveCell.Value = "January"
End If

If cboMonth = "February" Then
ActiveCell.Value = "February"
End If

If cboMonth = "March" Then
ActiveCell.Value = "March"
End If

If cboMonth = "April" Then
ActiveCell.Value = "April"
End If

If cboMonth = "May" Then
ActiveCell.Value = "May"
End If

If cboMonth = "June" Then
ActiveCell.Value = "June"
End If

If cboMonth = "July" Then
ActiveCell.Value = "July"
End If

If cboMonth = "August" Then
ActiveCell.Value = "August"
End If

If cboMonth = "September" Then
ActiveCell.Value = "September"
End If

If cboMonth = "October" Then
ActiveCell.Value = "October"
End If

If cboMonth = "November" Then
ActiveCell.Value = "November"
End If

If cboMonth = "December" Then
ActiveCell.Value = "December"
End If
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

Run-Time error '-2147417848 (80010108)': Automation error The object invoked has disconnected from	0	Apr 28, 2006
Need help-For loop	3	Dec 30, 2009
Help with Index formula	2	Dec 19, 2010
Error 2042 problem with vlookup	0	May 17, 2011
Excel hangs	1	Dec 9, 2010
preset range	3	Oct 21, 2008
vba editor comes up whenever macro is run.	0	Feb 12, 2008
loop until empty row and column problem (format cells until the lastrow and column in a report)	4	Jun 5, 2012

Run-Time error '-2147417848 (80010108)': Automation error The object invoked has disconnected from

SeangSTM

Ask a Question

Similar Threads