What do you expect from the line below?
Run Sheets("filter2").CodeName & ".worksheet_activate"
You have no sheet name "filter2" and no code to execute....