Range("Employee_Name") = "Enter Name Here" = 22 Range("Retirement_Age") = 65 Range("Current_Salary") = 20000 ' CHANGING an hsb's value property triggers its change event! hsbSalaryGrowthRate = 0 hsbSalaryGrowthRate = 30 hsbContributionRate = 0 hsbContributionRate = 80 hsbInvestmentReturn = 0 hsbInvestmentReturn = 100 hsbCompanyMatch = 0 hsbCompanyMatch = 500 Application.ScreenUpdating = True End Sub Private Sub hsbCompanyMatch_Change() = Format(Round(hsbCompanyMatch / 1000, 2), "00.00%") End Sub Private Sub hsbCompanyMatch_Scroll() hsbCompanyMatch_Change End Sub Private Sub hsbContributionRate_Change()
Range("Employee_Name") = "Enter Name Here" = 22 Range("Retirement_Age") = 65 Range("Current_Salary") = 20000 ' CHANGING an hsb's value property triggers its change event! hsbSalaryGrowthRate = 0 hsbSalaryGrowthRate = 30 hsbContributionRate = 0 hsbContributionRate = 80 hsbInvestmentReturn = 0 hsbInvestmentReturn = 100 hsbCompanyMatch = 0 hsbCompanyMatch = 500 Application.ScreenUpdating = True End Sub Private Sub hsbCompanyMatch_Change() = Format(Round(hsbCompanyMatch / 1000, 2), "00.00%") End Sub Private Sub hsbCompanyMatch_Scroll() hsbCompanyMatch_Change End Sub Private Sub hsbContributionRate_Change()
RPDSS%20code.docx