Hi,

Can anyone please help me to edit this code :

Selection.TextToColumns Destination:=Range("B31"),
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
End Sub

so that I can run the macros for every cell selected?

and later, do every cell and then run the macros on other sheet in the
worksheet?

Thank you very much!

Nadhra