Excel Vba Assign Named Patterns