It's a lot easier for others to test if you could include a WB as an attachment. That way we don't have to spent time creating one with your sheets, macros, forms, what nots
So i'm going to guess that you left the parentheses after "M2" offWorksheets("NewYearSetup").Range("M2").Characters(Start:=1, Length:=1).Font.name = "WingDings" 'And its failing here as indicated with the yellow highlihght in the editor