How to Add a String to the beginning of every value in a range

Hi !

Another way :

PHP Code: 

Sub Demo1()
    With Sheet1.Range("B2", Sheet1.Cells(Rows.Count, 2).End(xlUp))
        .Value = Evaluate(Replace("IF(#>"""",""E-""&#,"""")", "#", .Address))
    End With
End Sub 


As Sheet1 is a worksheet CodeName, safer than a worksheet name if renamed …

2016-02-22_195835.png

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !