Keep document that easy to find
monthname= Application.WorksheetFunction.Text(DateSerial(2017, a, 1), "[$-0409]mmmm")
