Make all the cells in a selction equal the value of the first cell in the selection

[NewOrderFac33]

Good afternoon,

Quick query for a rush job - I need to write a procedure which, when I select a range of cells, and then run the procedure, all the cells' values will equal the value in the first cell. I did this:

Sub PopulateAll()
   Dim SelectedCell(1 To 100) As Variant
   For Each SelectedCell In Selection
       SelectedCell.Value = SelectedCell(1).Value 
   Next
End Sub

but Excel reports that "For Each contol variable mus be variant or object"Where am I going wrong, & thanks in advance!

 

[VoG]

Try

Sub PopulateAll()
Selection.Value = Selection(1).Value
End Sub

 

[NewOrderFac33]

Just the job - thank you VERY much!