Мне удалось решить эту проблему в VBA через новую переменную с типом данных "Дата"

Dim cell As Range
Dim i As Date

   For Each cell In Range("...")
       i = cell.Value
       cell.Value = i
   Next cell