Макрос изменения числового значения выделеного диапазона

[Severny]

Добрый день!
Помогите довести до ума макрос который изменяет, в даном случае делит на 10 каждое числовое значение выделеного диапазона.
Задачу можно решить путем Спецвставки, но в учебных целях хотелось бы макрос.

Sub УменьшениеРазряда()
    For Each X In Selection.SpecialCells(xlCellTypeConstants)
    X.Value = d
    d = d / 10
    X.Value = d
    Next
End Sub

У меня в итоге все нули.

[Hugo121]

Sub УменьшениеРазряда()
    For Each X In Selection.SpecialCells(xlCellTypeConstants)
    X.Value = X.Value / 10
    Next
End Sub

А нули потому, что в первой стрке ошиблись -
X.Value = d
нужно было
d = X.Value

[Severny]

Спасибо, будем работать дальше