Visit here:
http://excelpoweruser.wordpress.com/2011/07/30/remove-special-character-from
-a-string/
Public Function SheetName(Shname As String) As String Dim Cod As Integer Dim
ShN As String
For i = 1 To Len(Shname)
Cod = Asc(Mid(Shname, i, 1))
Hi
In cell what input = removeSpecial(Cell) like this?
On 10/5/12, jeet singh wrote:
> Function removeSpecial(sInput As String) As String
> Dim sSpecialChars As String
> Dim i As Long
> sSpecialChars = "\/:*?"" {}[](),!`~\:;'._-=+&^%$<>|"
> For i = 1 To Len(sSpecialChars)
>
Function removeSpecial(sInput As String) As String
Dim sSpecialChars As String
Dim i As Long
sSpecialChars = "\/:*?"" {}[](),!`~\:;'._-=+&^%$<>|"
For i = 1 To Len(sSpecialChars)
sInput = Replace$(sInput, Mid$(sSpecialChars, i, 1), "")
Next
removeSpecial = sInput
End
