Help with Editing VB (a really beginner question)

[nadhra]

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

 

[nadhra]

(further explanation)

I recorded that Macro when I was editing cell B31, now I want to run
the code for cell, G31 and X31 (for example).

How do I edit the Macro so that it can do so? (i.e I click 'Run Macro'
and vwallaaa, changed 'current cell condition' to 'wanted cell
condition'

Thank you so much!