thanks, just one problem, remember that the macro iut's going to be runed in
a worksheet_change event, so I need to use target because if I useselection
then when the user press enter the selection is the next cell of target¡¡¡¡¡


"Bob Phillips" wrote:

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