Help With Prefix Code

[Dazzawm]

I was given the code below to add a prefix from an input box, but it doesnt seem to work if I try adding letters to the front of numbers?

Sub AddPrefix()
Dim c As Range, s As String
s = InputBox("Enter Prefix")
If s = "" Then Exit Sub
For Each c In Selection.SpecialCells(xlConstants, xlTextValues)
c.Value = s & c.Value
Next c
End Sub

 

[VoG]

Maybe

Sub AddPrefix()
Dim c As Range, s As String
s = InputBox("Enter Prefix")
If s = "" Then Exit Sub
For Each c In Selection.SpecialCells(xlConstants, xlTextValues + xlNumbers)
    c.Value = s & c.Value
Next c
End Sub

 

[Sektor]

Remove xlTextValues.

 

[Dazzawm]

An error comes up Run-time error '450'

Wrong number of arguments or invalid property assignment

Tried what you said Sektor and it worked for the numbers, but I may also need it for text too.

 

[Sektor]

For Each c In Union(Selection.SpecialCells(xlConstants, xlTextValues),Selection.SpecialCells(xlConstants, xlNumbers))
...
...

 

[VoG]

The code that I posted is working in Excel 2000.

 

[Dazzawm]

The code that I posted is working in Excel 2000.

Sorry VoG I didn't put the + in. Works now, thanks.