Преобразовать число в строку макросом

[agregator]

Здравствуйте уважаемые программисты. Надо преобразовать часла из диапазона ячеек в текст. Диапазон "A2:A36700" большой и если перебирать каждую ячейку, то слишком долго выполняется. Можно ли сделать макрос наподобие этого, т.к. этот не работает. (Формат ячеек меняет на текстовый, но числа остаются числами.)

Sub ЧислоВтекстИзОбласти()
    With ActiveSheet.Range("A2:A36700")
        arr = .Value
        .NumberFormat = "@"
        .Value = arr
    End With
End Sub

кросс

[pashulka]

With Range("A2:A36700")
     .NumberFormat = "@"
     .Value = .Formula
End With

[agregator]

pashulka, большое спасибо за помощь. Код работает быстро и как надо, спасибо.