try this
Function companyname(x As String)
Dim s As String
For i = 1 To Len(x)
If Asc(Mid(x, i, 1)) = 48 And Asc(Mid(x, i, 1)) = 57 Then
Exit For
Else
s = s Mid(x, i, 1)
End If
Next i
companyname = s
End Function
On Tue, May 24, 2011 at 6:07 PM, Deepak Rawat deepakexce...@gmail.comwrote:
Hi Friends,
I have to seperate the data in proper formatting, Pls suggest the best
worksheet is attached.
Regards,
Deepak
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
*Regards*
* *
*Ashish Koul*
*akoul*.*blogspot*.com http://akoul.blogspot.com/
http://akoul.posterous.com/
*akoul*.wordpress.com http://akoul.wordpress.com/
My Linkedin Profile http://in.linkedin.com/pub/ashish-koul/10/400/830
P Before printing, think about the environment.
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel