basic syntax error in visual basic excel

Question

I want to Remove Non-Alphanumeric Characters with this Macro.

this simple program gives me a syntax error.

I don't understand this error at all.

Sub CleanAll()
Dim rng As Range
Application.ScreenUpdating = False ' Turns off screen updating
On Error Resume Next ' Macro will continue if it encounters #N/A
'Adjust "Sheet1" and Range in Line 6
For Each rng In Sheets("Sheet1").Range("A2:A1629").Cells
    rng.Value = AlphaNumericOnly(rng.Value) ' Function call
Next
Application.ScreenUpdating = True
End Sub

Function AlphaNumericOnly(strSource As String) As String
Dim i As Integer
Dim strResult As String
On Error Resume Next
For i = 1 To Len(strSource)
Select Case Asc(Mid(strSource, i, 1))
'The numbers below match Char Codes to keep
 Case 48 To 57, 65 To 90, 97 To 122:
    strResult = strResult &amp; Mid(strSource, i, 1)
End Select
Next
AlphaNumericOnly = strResult
End Function

strResult = strResult & Mid(strSource, i, 1) looks bad.

findwindow
– findwindow

2015-12-09 16:54:25 +00:00
Commented Dec 9, 2015 at 16:54 — findwindow
– findwindow, Commented Dec 9, 2015 at 16:54

rory.ap · Accepted Answer · 2015-12-09 16:54:00Z

1

You have & which is not valid syntax. Change it to this:

strResult = strResult & Mid(strSource, i, 1)

answered Dec 9, 2015 at 16:54

rory.ap

35.7k15 gold badges104 silver badges199 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

basic syntax error in visual basic excel

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related