STRIP CHARACTERS
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
|