Sub Macro2()
Dim myrange As Range
Set myrange = Selection
myrange.Value = myrange(1).Value
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"filo666" wrote in message
...
Hi, tryng something easy but I don't figure out how to accomplish it, what
I
have until now:
Sub Macro2()
Dim myrange As Range, rng As Range
a = 1
Set myrange = (THE SELECTED RANGE IN THE SHEET)
For Each rng In myrange
Cells(a + rng.Row, rng.Column) = Cells(2 + rng.Row, rng.Column)
a = a + 1
Next rng
End Sub
What I want to accomplish is:
The user selects a range (ex. "d22:d25") and write a number (ex. 10 (that
automatically is writen in cell "d22")) then, when the user press enter
the
number 10 appears in the d22:d25 range
TIA