værdi som skal indsættes i flere celler (part 2)

Hej jeg har fået af dette dejlige forum til nedenstående:
----------
Sub input_værdi i flere celler
      Dim rng As Range
      For Each rng In Selection
      rng.Value = "F"
      Next rng
End sub
----------

ovenstående kode indsætter et F i alle active celler.
Men ! hvis jeg nu har en vilkårlig værdi i celle (data_vaerdi)
og gerne vil have værdien sat ind i alle aktive celler?

- har prøvet at ændre "      rng.Value = "F" " til range osv. men det virker ikke.


på forhånd tak.