Procedure too large, can be more efficient?

[scubadiver007]

Simplifying the code to an extreme

Private Sub CommandButton1_Click()

Code

Do while

     Code

            If ... then

                               CHARTS

            End if

                                CHARTS

loop

Code

End sub

Within the "IF...THEN" loop I activate a graph and specify the source. I am doing this for multiple charts.

I also have to do the same in the code immediately after the "if..then" loop.

    ActiveSheet.ChartObjects("CB_C").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Your Consortia for this quarter").Range("D2:D16,AU2:AU16"), PlotBy:=xlColumns

The first part of the source does not change, the second part does.

Any suggestions on how I can make it more efficient or break down the procedure so it can be run?

Thanks

[scubadiver007]

I've solved it. I would delete the post but I don't know how to.

[royUK]

Your post does not comply with Rule 9 of our Forum RULES. If you solve a problem yourself before anyone else has responded, please take a moment to describe your solution, chances are some other member will benefit. And please never edit a thread in which someone else has responded.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save