Worksheet_Change or Worksheet_SelectionChange? If the former, you don't need
the code as you could select a range, enter 10 aand then use Ctrl-Enter to
get the value in all the cells. If the letter, then how do you get the value
to set it all to? If it is already in the first cell then just change Target
for Selection.

--

HTH

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


"filo666" wrote in message
...
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