Sub SafeTextToColumns(Ofs As Range)

  Dim I, J As Integer
  J = 0
  I = 1
  Do While I > 0
    I = InStr(I, Ofs.Value, Chr(9), vbBinaryCompare)
    If I > 0 Then
       J = J + 1
       I = I + 1
    End If
  Loop
  ReDim ArrFieldInfo(J) As Variant
  For I = 0 To J
     ArrFieldInfo(I) = Array(I + 1, xlGeneralFormat)
  Next I

  Ofs.TextToColumns DataType:=xlDelimited, _
          TextQualifier:=xlTextQualifierNone, ConsecutiveDelimiter:=False, Tab:=True, _
          Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
          FieldInfo:=ArrFieldInfo

End Sub