**VBA**Add Numbers/Text to Beginning of Select CELLS

[NEW_2VBA]

Happy Friday!!

Is it possible to edit the code below to apply the change to all selected cells at once?

Currently a box appears requiring user input to add numbers or text to the beginning of selected cells. The code below below does not allow one input to update all selected cells; instead the box appears repeatedly for each cell selected. This means, if I highlight 5 cells to add '00' to the beginning of each cell, the box will appear 5 times and I have to type in '00' in each input box and the selected cells are then updated one at a time.

I would like to be able to highlight multiple cells, have one input box appear, type in the text/numbers to add to the beginning of cells, then press Enter & have all cells updated at once.

Dim c As Range
Dim myValue As Variant
For Each c In Selection
myValue = InputBox("Enter Numbers/Text to Add to Selected Cells")
If c.Value <> "" Then c.Value = myValue & c.Value
Next

 

[NEW_2VBA]

Also, I notice that unfiltered cells are included in the update when I highlight a range of cells within a filtered column --> is there a way to only apply this code to visible cells only if working with a filtered list?

 

[Fluff]

How about

Dim c As Range
myValue = InputBox("Enter Numbers/Text to Add to Selected Cells")Dim myValue As Variant
For Each c In Selection.SpecialCells(xlVisible)
If c.Value <> "" Then c.Value = myValue & c.Value
Next

 

[NEW_2VBA]

It worked, thank you!!?
At first I received a Compile Error/Syntax Error message so I placed the "Dim myValue As Variant" text under "Dim c As Range", then it worked like a charm!

Dim c As Range
Dim myValue As Variant
myValue = InputBox("Enter Numbers/Text to Add to Selected Cells")
For Each c In Selection.SpecialCells(xlVisible)
If c.Value <> "" Then c.Value = myValue & c.Value
Next

I appreciate your help!!

 

[Fluff]

You're welcome & thanks for the feedback