Добавление нужного значения для массива данных

[RedStorm]

Добрый день. Есть вот такой макрос.
Необходимо его переделать, так что бы, при запуске макроса выводилось окно в котором мы присваиваем значение параметру ххх

PHP код:

Sub Макрос1()
    Dim c As Range
    For Each c In Selection.SpecialCells(xlCellTypeConstants, 3)
        c = "xxx" & c
    Next
End Sub 


[Казанский]

Sub Макрос1()
    Dim c As Range, d$
    d=inputbox("Введите параметр",,"xxx")
    For Each c In Selection.SpecialCells(xlCellTypeConstants, 3)
        c = d & c
    Next
End Sub