Sub
InitDeclaration()
sWorksheetName = ActiveSheet.Name
iContentStart = 67
iScenarioDelta = 117
iNPSStart = iContentStart
iCPSStart = iContentStart + iScenarioDelta
i450Start = iContentStart + 2 * iScenarioDelta
iNPSFossil = iContentStart + 4
iNPSNuclear = iNPSFossil + 40
iNPSRenewables = iNPSNuclear + 12
iCPSFossil = iNPSFossil + iScenarioDelta
iCPSNuclear = iNPSNuclear + iScenarioDelta
iCPSRenewables = iNPSRenewables + iScenarioDelta
i450Fossil = iNPSFossil + 2 * iScenarioDelta
i450Nuclear = iNPSNuclear + 2 * iScenarioDelta
i450Renewables = iNPSRenewables + 2 * iScenarioDelta
End
Sub