Maybe:

For Each invoiceNameValue In invoiceNameRng
If IsNumeric(invoiceNameValue.Value) Then _ 
    invoiceNameValue.Value = "E-" & invoiceNameValue
Next