Как отформатировать месяц в формате ммм?

Я пытаюсь отформатировать дату в Excel с помощью VBA, текущий месяц должен быть в формате mmm . Как-то я получаю предыдущий месяц вместо текущего. Я проверил, и мой компьютерный месяц - февраль, но вместо этого я получаю Ян.

Это мой код:

Cells(1, 2) = Format(month(Date), "mmm")