se pudesse postar parte do código, ajudaria então a célula deve receber apenas o mês e não um a data?? tente isso antes de passar o valor para a célula. Range['A1', 'A1'].NumberFormat := '#';