khameleon1,

Comment out the ScreenUpdating = False at the beginning of your code
Put a break point on the first Set r = Range(whatever) ~~~~~ you have about 8 of them and are not specifying the sheet.

You'll discover that the active sheet is not the sheet you want.
You're using a range in the middle of "Graphical Summary"