On Sat, 15 Dec 2007 23:34:36 -0500, "Rick Rothstein \(MVP -
VB\)"
wrote:
Here's another VBA approach:
==============================
Option Explicit
Sub splitatX()
Dim c As Range
Dim temp
Dim i As Long
For Each c In Selection
temp = Split(LCase(c.Text), "x")
For i = 0 To UBound(temp)
c.Offset(0, i + 1).Value = temp(i)
Next i
Next c
End Sub
===================================
You can eliminate the LCase function call for the first statement in your
For-Next block by using the Split function's "Compare" argument...
temp = Split(c.Text, "x", , vbTextCompare)
Rick
Thanks for that pointer.
--ron