Hi.

I have a sheet that has some data for charts. I have a validation list to choose the month so that when the user selects a certain month it will change the values for the data in cells R2:Y5. I have the following code as a selectionchange event and it works perfectly if i am changing the data on that sheet and just clicking another cell

Here is the code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("Q1").Value = "May" Then
Range("R2").Value = Sheets("Project Reporting Summary").Range("N5").Value + Sheets("Project Reporting Summary").Range("O5").Value
Range("S2").Value = Sheets("Project Reporting Summary").Range("N21").Value + Sheets("Project Reporting Summary").Range("O21").Value
Range("T2").Value = Sheets("Project Reporting Summary").Range("N36").Value + Sheets("Project Reporting Summary").Range("O36").Value
Range("U2").Value = Sheets("Project Reporting Summary").Range("N51").Value + Sheets("Project Reporting Summary").Range("O51").Value
Range("V2").Value = Sheets("Project Reporting Summary").Range("N66").Value + Sheets("Project Reporting Summary").Range("O66").Value
Range("W2").Value = Sheets("Project Reporting Summary").Range("N81").Value + Sheets("Project Reporting Summary").Range("O81").Value
Range("X2").Value = Sheets("Project Reporting Summary").Range("N96").Value + Sheets("Project Reporting Summary").Range("O96").Value
Range("Y2").Value = Sheets("Project Reporting Summary").Range("N111").Value + Sheets("Project Reporting Summary").Range("O111").Value

Range("R3").Value = Sheets("Project Reporting Summary").Range("N9").Value + Sheets("Project Reporting Summary").Range("O9").Value
Range("S3").Value = Sheets("Project Reporting Summary").Range("N25").Value + Sheets("Project Reporting Summary").Range("O25").Value
Range("T3").Value = Sheets("Project Reporting Summary").Range("N40").Value + Sheets("Project Reporting Summary").Range("O40").Value
Range("U3").Value = Sheets("Project Reporting Summary").Range("N55").Value + Sheets("Project Reporting Summary").Range("O55").Value
Range("V3").Value = Sheets("Project Reporting Summary").Range("N70").Value + Sheets("Project Reporting Summary").Range("O70").Value
Range("W3").Value = Sheets("Project Reporting Summary").Range("N85").Value + Sheets("Project Reporting Summary").Range("O85").Value
Range("X3").Value = Sheets("Project Reporting Summary").Range("N100").Value + Sheets("Project Reporting Summary").Range("O100").Value
Range("Y3").Value = Sheets("Project Reporting Summary").Range("N115").Value + Sheets("Project Reporting Summary").Range("O115").Value

Range("R4").Value = Sheets("Project Reporting Summary").Range("N4").Value + Sheets("Project Reporting Summary").Range("O4").Value
Range("S4").Value = Sheets("Project Reporting Summary").Range("N19").Value + Sheets("Project Reporting Summary").Range("O19").Value
Range("T4").Value = Sheets("Project Reporting Summary").Range("N34").Value + Sheets("Project Reporting Summary").Range("O34").Value
Range("U4").Value = Sheets("Project Reporting Summary").Range("N49").Value + Sheets("Project Reporting Summary").Range("O49").Value
Range("V4").Value = Sheets("Project Reporting Summary").Range("N64").Value + Sheets("Project Reporting Summary").Range("O64").Value
Range("W4").Value = Sheets("Project Reporting Summary").Range("N79").Value + Sheets("Project Reporting Summary").Range("O79").Value
Range("X4").Value = Sheets("Project Reporting Summary").Range("N94").Value + Sheets("Project Reporting Summary").Range("O94").Value
Range("Y4").Value = Sheets("Project Reporting Summary").Range("N109").Value + Sheets("Project Reporting Summary").Range("O109").Value

Range("R5").Value = Sheets("Project Reporting Summary").Range("N7").Value + Sheets("Project Reporting Summary").Range("O7").Value
Range("S5").Value = Sheets("Project Reporting Summary").Range("N23").Value + Sheets("Project Reporting Summary").Range("O23").Value
Range("T5").Value = Sheets("Project Reporting Summary").Range("N38").Value + Sheets("Project Reporting Summary").Range("O38").Value
Range("U5").Value = Sheets("Project Reporting Summary").Range("N53").Value + Sheets("Project Reporting Summary").Range("O53").Value
Range("V5").Value = Sheets("Project Reporting Summary").Range("N68").Value + Sheets("Project Reporting Summary").Range("O68").Value
Range("W5").Value = Sheets("Project Reporting Summary").Range("N83").Value + Sheets("Project Reporting Summary").Range("O83").Value
Range("X5").Value = Sheets("Project Reporting Summary").Range("N98").Value + Sheets("Project Reporting Summary").Range("O98").Value
Range("Y5").Value = Sheets("Project Reporting Summary").Range("N113").Value + Sheets("Project Reporting Summary").Range("O113").Value

ElseIf Range("Q1").Value = "April" Then
Range("R2").Value = Sheets("Project Reporting Summary").Range("N5").Value
Range("S2").Value = Sheets("Project Reporting Summary").Range("N21").Value
Range("T2").Value = Sheets("Project Reporting Summary").Range("N36").Value
Range("U2").Value = Sheets("Project Reporting Summary").Range("N51").Value
Range("V2").Value = Sheets("Project Reporting Summary").Range("N66").Value
Range("W2").Value = Sheets("Project Reporting Summary").Range("N81").Value
Range("X2").Value = Sheets("Project Reporting Summary").Range("N96").Value
Range("Y2").Value = Sheets("Project Reporting Summary").Range("N111").Value

Range("R3").Value = Sheets("Project Reporting Summary").Range("N9").Value
Range("S3").Value = Sheets("Project Reporting Summary").Range("N25").Value
Range("T3").Value = Sheets("Project Reporting Summary").Range("N40").Value
Range("U3").Value = Sheets("Project Reporting Summary").Range("N55").Value
Range("V3").Value = Sheets("Project Reporting Summary").Range("N70").Value
Range("W3").Value = Sheets("Project Reporting Summary").Range("N85").Value
Range("X3").Value = Sheets("Project Reporting Summary").Range("N100").Value
Range("Y3").Value = Sheets("Project Reporting Summary").Range("N115").Value

Range("R4").Value = Sheets("Project Reporting Summary").Range("N4").Value
Range("S4").Value = Sheets("Project Reporting Summary").Range("N19").Value
Range("T4").Value = Sheets("Project Reporting Summary").Range("N34").Value
Range("U4").Value = Sheets("Project Reporting Summary").Range("N49").Value
Range("V4").Value = Sheets("Project Reporting Summary").Range("N64").Value
Range("W4").Value = Sheets("Project Reporting Summary").Range("N79").Value
Range("X4").Value = Sheets("Project Reporting Summary").Range("N94").Value
Range("Y4").Value = Sheets("Project Reporting Summary").Range("N109").Value

Range("R5").Value = Sheets("Project Reporting Summary").Range("N7").Value
Range("S5").Value = Sheets("Project Reporting Summary").Range("N23").Value
Range("T5").Value = Sheets("Project Reporting Summary").Range("N38").Value
Range("U5").Value = Sheets("Project Reporting Summary").Range("N53").Value
Range("V5").Value = Sheets("Project Reporting Summary").Range("N68").Value
Range("W5").Value = Sheets("Project Reporting Summary").Range("N83").Value
Range("X5").Value = Sheets("Project Reporting Summary").Range("N98").Value
Range("Y5").Value = Sheets("Project Reporting Summary").Range("N113").Value
End If

End Sub
Obviously this code is not ideal and i tried to use a combobox in a userform on the sheet the chart is present on to change the month so that they can see the change in data on the chart without having to go to the actual "Data" sheet. The issue is this code will not work because i am using a selectionchange event for the data sheet and if i am not no the data sheet, even though the month changes, the data does not. I tried changing the selectionchange to just a worksheet_change event however it takes too long to calculate the above code and thus my excel freezes every time. The data from the table in my "Data" sheet that is plotting to the chart is also pulling monthly data from a separate "Project Reporting Summary" sheet as seen above. These individual cells are months. Anyone know how to make this code simpler?

btw, I have only added in April and May (started with this April) so as June, July, August, etc go by, the code is going to get larger and larger because i have to keep adding values for each month.

Any help is appreciated. :D