VBA Paste into (entire) current selection

[DutchKevin]

Hello All,
My problem is probably quite easy to code, but so far i'm unsuccesfull.
Here's my case.
I want the user to be able to select a random range on a sheet.
Then with one button he can then "paste" a predefined value into that entire range.
Here's what i have so far. The color works fine, but the data only fills the first cell.

Sub Fill_V()
    With SELECTION.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    ActiveCell.FormulaR1C1 = "V"
End Sub

I also tried:

ActiveCell.CurrentRegion.Value = "V"

and

ActiveCell.Range.Value  = "V"

with same result

Looking forward to your ideas.

Thanks
Kevin

 

[JackDanIce]

Instead, try:

Sub Fill_V()
    With Selection
        With .Interior
            .ColorIndex = 15
            .Pattern = xlSolid
        End With
        .Value = "V"
    End With
End Sub

 

[DutchKevin]

thanks! this bugged me for days already.
Simple and effective, as I had excpected.

and fast reply!

 

[JackDanIce]

You're welcome