Reply to thread

Message: [QUOTE="Bob Phillips, post: 6365306"] Ithin k it is this line Range("B4:B18").Select Selection.TextToColumns Destination:=Range("B4"), DataType:=xlDelimited,TextQualifier:=xlDoubleQuote,ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True change it to Range("B4:B18").TextToColumns Destination:=Range("B4"), _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=True, _ Semicolon:=False, _ Comma:=False, _ Space:=False, _ Other:=True, _ OtherChar:="-", _ FieldInfo:=Array(Array(1, 1), Array(2, 1)), _ TrailingMinusNumbers:=True -- __________________________________ HTH Bob [/QUOTE]