This is where the error is:

Selection.TextToColumns Destination:=Range("B1")
DataType:=xlDelimited,
_
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar
_
:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1)

--
Message posted from http://www.ExcelForum.com