Function MonthNames() MonthNames = Array("January", "February", "March", _ "April", "May", "June", "July", "August", _ "September", "October", "November", "December") End Function =TRANSPOSE(MonthNames())