Copy text to multiple cells

[seasider89]

I have a reasonably simple problem that I'm trying to solve.

I essentially need some code that will copy the contents of one cell to the range cells I have selected at the time. So for example if I have 'Text' in cell A1, and I have the range A2:B3 selected I want these cells to be populated with the data in A1 when I run the macro. A1 will be controlled by a drop down and therefore will change dependent on what is selected.

Thanks in advance.

[The_Greg]

Try this:



Sub Copy_A1()

Dim Rng As Range, cell As Range

Set Rng = Application.InputBox(Prompt:="Please Select Range", Title:="Range Select", Type:=8)
Application.ScreenUpdating = False
For Each cell In Rng

cell.Value = Cells(1, 1).Value

Next cell


Application.ScreenUpdating = True
End Sub

[Catman50]

Just select the range and run this macro, it will work with continuous and non-continuous selections

Please Login or Register  to view this content.

[seasider89]

Thanks Catman50, did exactly what I needed!